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mmmmLnm 

Y esa cara tan triste? JQue pasa? 

ES QUE QUIERO HACER TANTAS COSAS CON Ml ATARi, PERO NO SE POR DONDE 
EMPEZAR. SE QUE SE PUEDEN HACER TODAS LAS COSAS QUE YO QUIERO IPERO 
NO SE COMO! 

iCalma! Recuerda que sl auleres ser un experto con tu Atari debes ser muy 
oroanlzado. 

Veamos, dqud te gustarla hacer? 

BUENO. ME GUST ARIA HACER MIS PROPIOS PROGRAMAS, Y USAR LOS JUEGOS Y 
PR06RAMAS EDUCATIVOS. ME GUST ARIA HACER HARTOS GRAFICOS Y PODER 
DEJAR GRABADO TODO LO QUE HAGA. 

Bien. Poco a poco iremos revisando todas las cosas que quieres aprender y 
muchas otras que cuando las conozcas te encantaran. Es importante que 
tengas claro que este no es un manual de operaclon, sino una guia en todos Ios 
aspectos que te interesan y no aparecen en los manuales del equipo. 

AH! MUCHOMASENTRETENIDOENTONCES. 

OJaiq asi sea, Prlmero me Interesa conocer cual es el nlvel de tus 
conocimlentos asi es que me gustarla que conversaramos un poco. 

JME VAS A HACER UNA PRUEBA? 

Algo asi. Me gustarla saber que es para tl un computador. 

BUENO, UN COMPUTADOR ES .... ES UNA HERRAMIENTA A LA QUE YO LE PIDO QUE 
HAGA ALGUNAS COSAS Y SIEMPRE LAS HACE BIEN, 

Tlenes razon. El computador es una herramlenta, una mdqulna que tlene 
memorla y puede reallzar operaclones arltmeticas y loglcas. Para poder hacer 
todo esto necesita varlas partes o componentes Jsabes cuales son?. 

IHUMM! CREO QUE SI. AQUI TENGO Ml ATARI Y TE VOY A IR ENUMERANDO SUS 
PARTES: 
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- TENGO UN TECLADO QUE USO PARA ESCRIBIR. 

Asl es. El teclado se conoce como "Unldad de Entrada" y slrve para Ingresar 
Informaclon al computador. 

- TENGO TAMBIEN UNA PANTALLA EN LA CUAL VEO TODO LO QUE HACE Ml 
ATARI. 

La pantalla o monitor es la "Unldad de Sal Ida" mas usada en los 
microcomputadores y puede ser un televisor corriente. 

- Y UNA IMPRESORA. ES BIEN CHIQUITITA PERO ES RAPIDA. 

La Impresora, Igual que la pantalla, se utlliza como unldad de sal Ida. La 
dlferencla es que con la Impresora obtlenes lo que se conoce como "copla 
dura” del trabajo en cambio en la pantalla tlenes una “copla blanda". 

- LO ULTIMO QUE TENGO ES UNA DISKETTERA. AL PRINCIPIO TENIA UNA 
CASSETTERA PERO EN LOS CASSETTES NO ME CAB IA MUCHO Y SE DEMORABA 
DEMASIADO. 

Las cassetteras y dlsketteras son los medlos 1e almacenamlento auxillar mas 
utlllzados en los microcomputadores. Y hablando de memorla, creo que se te 
olvlda un componente. 

PERO SI LOS DIJE TODOS. 

iSeguro? Fljate en el teclado. 

AH DE VERAS. UN SENOR DE ATARI ME LO EXPLICO. EN LA MISMA CAJA DONDE 
ESTA EL TECLADO VIENE LO MAS IMPORT ANTE DEL EQUIPO: EL PROCESADOR Y LA 
MEMORIA PRINCIPAL. 

Asl es. La memorla del computador slrve para almacenar datos. 

SI, ME ACUERDO QUE EXISTEN DOS TIPOS DE MEMORIA PRINCIPAL: 

- LA RAM QUE SE UTILIZA COMO MEMORIA DE TRABAJO PARA IR DEJANDO LOS 
PROGRAMAS QUE HAGO. 

- LA ROM TRAE GRABADOS LOS PROGRAMAS BASICOS DE OPERACION QUE 
PROPORCIONA EL FABRICANTE DEL EQUIPO. 

Me alegra saber que conoces blen el equlpo, asl podremos comenzar 
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rapidamente a utilizarlo. 

iQUE RICO! PORQUE LA VERDAD ES QUE ABURRE UN POCO TODA LA PARTE 
TEORICA. 

De acuerdo, pero tlenes que tener en cuenta que es Indispensable conocerlo. En 
la medlda que domines los aspectos tedricos podras hacer un mejor uso de tu 
equlpo. 

TU DIJISTE QUE ESTE NO ES UN MANUAL DE OPERACION. ENTONCES <LQUE VAMOS 
A ESTUDIAR?. 

Lo mejor es que revlsemos nuestro Indlce punto por punto. Primero veremos 
algunas tecnlcas de programaclon. 

6TECNICAS DE PR06RAMACI0N? AH! APUESTO QUE SE TRATA DE ALGUNOS 
TRUCOS PARA PROGRAMAR EN Ml ATARI. 

Algo asl. Para esto se supone que tu sabes BASIC. 

BUENO. NO SOY EXPERTO PERO TENGO EL MANUAL Y CUANDO TENGO DUDAS 
RECURRO A EL. 

Me parece muy bien, esa es la idea. Por eso en el capltulo de Tecnlcas de 
Programaclon veremos algunas instrucclones de BASIC avanzadas, que solo 
tlenen los equipos mas modernos y por supuesto, muchos ejemplos que te se 
rviran de gula para hacer tus proplos programas. 

SI, ME INTERESA. DESPUES? 

El Segundo capltulo lo dedlcamos excluslvamente a las variables del Atari 
BASIC. 

AH! SEGUIMOS CON BASIC. MENOS MAL QUE ESTE NO ES UN MANUAL DE 
BASIC. 

Es verdad, no es un manual de BASIC. Lo que pasa es que, como ya debes saber, 
el BASIC es el lenguaje mas utillzado en los mlcrocomputadores y viene con 
tu equlpo. Ademas es impreslonante la varledad de aplicaclones que tiene. 

SI, A Ml ME ENCANTA. UN AMIGO ME DUO QUE CONOCIENDO BIEN UN LENGUAJE ES 
MUCHO MAS FACIL APRENDER OTROS. 
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Correcto, porque todos, o casl todos, tienen las mismas bases. 

Y asl llegamos al tercer capitulo que tamblen tiene relacion con BASIC. Esta 
vez se trata del uso de los Peeks y Pokes en el Atari. 

ILOS FAMOSOS PEEKS Y POKES! POR FIN PODRE SABER DE QUE SE TRATAN. 

Ojala sea ask El cuarto capitulo es un poco mas tecnico, se trata del uso de la 
dlskettera y cassettera en el Atari. 

6PODRE CONOCER BIEN LAS VENTAJAS DE ESOS MEDIOS DE ALMACENAMIENTO? 

Y m^s que eso: podras sacarle el maxlmo provecho. Lo mismo al Joystick, del 
que hablamos en el capitulo qulnto. 

iME MUERO DE 3ANAS DE EMPEZAR LUEGO! IMA6INATE CON TODAS ESTAS COSAS 
NUEVAS LOS PROGRAMAS OUE VOY A PODER HACER 

Y para darte aun mas ayuda, en la ultima parte de este llbro encontraras un 
Anexo con algunos conceptos basicos de utllizaclon del Atari. Asl puedes 
recordar aspectos de tu Atari que se te han olvidado, o aprenderlos si no los 
conoces. 

tF ANT AST I CO! ZEMPEZAMOS? 

Una ultima cosa. Me Interesa saber si conoces bien tu Atari. Zlo encendemos? 
IYA! iENCENDI Ml EQUIPO! MIRA LO QUE APARECE EN LA PANT ALLA 
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Cuando ves la palabra READY en la pantalla, significa que el computador esta 
listo para que lo util Ices. 

El cuadrado verde es el cursor. A medida que tu ingresas las instrucciones, el 
cursor se mueve dentro de la pantalla y te indica donde aparecera la proxima 
letra que escribas. 

iTANTAS TECLAS! ES VERDAD QUE EL TECLADO ES MUY PARECIDO AL DE UNA 
MAQUINA DE ESCRIBIR, PERO HAY OTRAS TECLAS DIFERENTES. 

Asi es. Dentro de las teclas diferentes, existen dos que son muy importantes: 
RETURN y RESET. 

6Y QUE SIGNIFICAN ESAS TECLAS? 

La tecla RETURN marca el final de un ingreso de informacion a trav£s del 
teclado. Ya la veremos en detalle mas adelante. 

iY EN BASIC ES DIFERENTE, VERDAD?. 

Si, ahi marca el final de una tinea que puede ser: 

- incorporada al programa que estas creando (si tiene numero de linea). 

- interpretada y luego ejecutada, si estas trabajando en modo directo (sin 
numero de linea). 

SI, SI ME ACUERDO DE ESA PARTE. ZY LA TECLA RESET?. 

La presion de la tecla RESET deja al computador en su condicion inicial 
normal, con la pantalla limpia y modo texto. 

TODO CLARO. 6EMPEZAM0S?. 


Empecemos 
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(CAPHTyiLQ 11 

tie™ CAS PE PimfilttAMACiaM 


Lomo mencionamos en la Introduced, comenzarernos viendo algunas Tecmcas 
de Programacion en BASIC. 

YA, PERO RECUERDA QUE YA TEN60 UN MANUAL DE BASIC, ESO SI, NO ES MUY 
COMPLETO. A VECES QUIERO HACER ALGUNAS COSAS Y NO ENCUENTRO COMO, 

De eso trata este capitulo BASIC es un lenguaje con un conjunto pequeno de 
instrucciones y una sintaxis muy simple, Entonces ahora trataremos de 
abordar diferentes problemas con estas herramientas 

DEBE SER MUY DIFICIL HACER UN LENGUAJE DE PROGRAMACION. 6A QUIEN SE LE 
OCURRIOEL BASIC?, 

El lenguaje BASIC fue creado por John Kemenny y Thomas Kurtz en 1965 
inicialmente orientado a aplicactones numericas. 

6S0L0 APLICAC I ONES NUMERICAS? PERO YO PENSE. 

Lo que pasa es que se ha difundido y mejorado de tai forma que hoy permite 
resolver dlversas aplicaciones, transformandose en uno de los lenguajes mas 
usados en mini y microcomputadores, por su facilidad de uso, aprendizaje y 
versat.ilidad en el manejo, 

ALGO HE ESCUCHADO DE DISTINTOS BASIC, YO PENSABA QUE HABIA UNO SOLO. 

El BASIC ha ido evolucionando y han ido apareciendo dist.int.as versiones, 
primero para computadores grandes y actualmente para los 
microcomputadores. La mas popular de estas versiones para 
minicomputadores es la familia de BASIC de la Digital Equipment Corporation 
(DEC). 

6COMO FAMILIA? SI ESTAMOS HABLANDO DE UN LENGUAJE, NO DE PERSONAS. 

Es una forma de expresarse. Existen muchas versiones de BASIC, con 
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distintos origenes. Las versiones m^s importantes de la familia DEC son: 
BASIC - 11, BASIC - PLUS y BASIC - PLUS 2. 

6Y POR QUE SON MAS IMPORTANTES? SUPONGO QUE TENDRAN ALGUNAS 
VENTAJAS FRENTE A OTRAS VERSIONES . 

Estas versiones de BASIC poseen instrucciones especiales que no tienen otras. 

BUENO, PERO SUPONGO QUE HABRA INSTRUCCIONES COMUNES A TODAS LAS 
VERSIONES. 

Claro que si. Las instrucciones mas comunes son: 

- PRINT que desplfega informacion en la pantalla o en otro dispositivo de 
sali da. 

GOTO iYO SE! GOTO PERMITE SALIRSE DE LA SECUENCIA NORMAL DE UN 
PROGRAMA E IR A LA INSTRUCCION SENALADA A CONTINUACION DE LA 
INSTRUCCION GOTO. 

Me olvidaba que sabes BASIC isabes entonces para que sirven las 
instrucciones END, LET, LIST, RUN, REM, etc ? 

SI. LAS USO MUCHO EN Ml ATARI.. 

Pues muy bien. Aparte de estas instrucciones comunes hay otras especiales. 

6COMO CUALES?. 

Por ejemplo, estan las que se conocen como "funciones especiales de 
manipulacion de strings". 

6Y QUE SON LOS STRINGS? 

Un string es un conjunto de letras o caracteres alfanumericos (letras, 
numeros y signos combinados) tratados como una unidad. 

DAME UN EJEMPLO, POR FAVOR. 

Tu nombre es un string, o sino se consideraria cada Jetra por separado, como 
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caracteres independientes. Esta es la manera como ei computador ve los 
textos. 

AH! YA ENTIENDO 6Y CUALES SON ESAS FUNCIONES ESPEC1ALES DE 
MANIPULACION DE STRINGS? 

MID$, LEFT$ y RIGHTS y la posibilidad de crear "arreglos de Strings". 

HE ESCUCHADO UN PAR DE VECES LA PALABRA ARREGLO, PERO NUNCA 
RELACIONADA CON STRINGS. 

Un arreglo es un conjunto cualquiera de elementos, en este case de Strings. 
Puedo tener, por ejemplo, un arreglo con el nombre de los meses del ano, los 
dias de la semana, colores, etc. 

J 

ES IGUAL A LOS ARREGLOS DE NUMEROS. PERO SABES UNA COSA, AHORA QUE 
RECUERDO, YO HE TRABAJADO CON MICROSOFT BASIC Y TE PERM1TE HACER 
COSAS ESPECIALES CON LOS STRINGS. 

Es que Microsoft BASIC es uno de los descendientes de esta familia. Otros 
productores, como Data General, usan una sintaxis diferente para mane jar 
substrings. 

6Y como es? 

Asi: A$ (X,Y) elimina el trabajo innecesario que debe hacerse con (M1D$). 
Atari BASIC es de este tipo. 

PERO ES MAS CONOCIDA LA FUNCION MID$ AUNQUE ES MAS COMPL1CADA. 

Por eso, es tan importante tener siempre presente que una sintaxis simple no 
signiflca necesariamente menos poder. En efecto, una sintaxis BASIC mas 
simple, puede significar que el Intfcrprete BASIC usa menos recursos de 
Hardware. 

SI, ES INTERESANTE TU TEORIA. 

6Te gustaria aprender algunos trucos de programaclon? 


iCLARO QUE SI! 
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Una caracteristica especial del Atari, es la capacidad que tiene de direcclonar 
Strings muy largos. 

6Y QUE PUEDO HACER CON STRINGS LARGOS? 

Bueno, quien te dice que no puedes construir un Procesador de Textos o un 
Editor, en BASIC, cuando tienes el poder para controlar y manipular un gran 
numero de palabras. 

PERO DEBE SER MUY LARGO Y DIFICIL. 

Uno puede inicializar un gran string de una longitud dificil de manejar, sin 
ocupar instrucciones largas y compiicadas. 

1000 E$ * “ “--TRAP 1010: FOR J = 1 TO 15 : E$ (LEN(E$)+1 )=E$ 

1010 NEXT J 

VEAMOS 6QUE OTRAS COSAS PODRIA HACER? 

Para aplicaciones de Bases de Datos, un administrador generalizado 
de "formatos de pantalla", podria construir y almacenar formatos de pantalla 
de entrada como grandes "imagenes tipo string". Uno podria incluir 
informacion especifica en una imagen tipo string con una sola instruccion. 

1200 REC$ (J +1 - LEN (EX$), J) = EX$ 

6Y QUE HACE ESA INSTRUCCION? 

Lo que Pace es colocar el extremo derecho de EX$ en la posicion J-esima de 
REC$, ajustando a la derecha la informacidn en REC$. 

HAGAMOSLO PARA AJUSTAR A LA IZQUIERDA. 

Para eso habria que colocar el extremo izquierdo de EX$ en la posicion J de 
REC$. 

1300 REC* ( J, J - 1 + LEN (EX*)) = EX$ 

SABES. SIEMPRE HE TENIDO UNA DUDA CON LOS PROCESADORES DE TEXTO. NO 
SE COMO HACEN PARA ALINEAR A AMBOS LADOS UN TEXTO. 



COMPU ATARI 


17 


\h! Muy send Ho. Simplemente, agregan blancos entre las palabras. 

L'i COMO SABEN CUANTOS BLANCOS? 

Porque uno sabe cuantas letras caben en una linea. Revisa las siguientes 
llneas del programa: 

1400 LN = LEN (EX*) 

1410 IF LN < 25 THEN EX* (LN + 0- BLANK* (1,25 - LN) 

6Y que hacen estas line as? 

Muestran como se "agranda" EX$ agregandole blancos al final hasta que su 
longitud sea 25. Por supuesto, la primera vez EX$ debe tener menos de 25 
posiciones y BLANKS debe inicializarse como un string de blancos. 

PERO NO ME RESULTA PARA STRINGS MAS LARGOS QUE 25. 

Cambia el 25 por una variable del tamano que desees y las mismas lineas en 
una subrutina te serviran para strings de cualquier largo. 

SUPONGO QUE DESPUES PODRE SACAR LOS BLANCOS QUE SOBRAN EN EL STRING. 

Prueba estas lineas. 

1500 LN = LEN (EX$) 

1510 IF LN> 1 AND EX*(LN,LN)=“ “ THEN EX*= EX* (1.LN-1) 

1520 GOTO 1500 

iUN LOOP! Y AS I SACO TODOS LOS BLANCOS QUE SOBRAN. 

Y puedes hacer lo mismo con los blancos a la izquierda de un string. 

1600 IF EX* (1,1)- * “ THEN EX* = EX* ( 2.LENCEX*)): IF LEN (EX*) > = 2 THEN 1600 

Y SI SUSTITUYO EL BLANCO (" ") POR UNA VARIABLE QUE CONTENGA UN 

BLANCO, ESO HACE MAS RAPIDA LA EJECUCION DEL PROGRAMA. 

iQu6 bien que te guste optimlzar tus programas! Es muy importante que lo 
hagas asi, aunque se trate de programas pequenos. 
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ESO ES LO QUE ME GUSTA DE LA PROGRAMACION: UNO PUEDE CREAR SUS 
PROPIOS PROGRAMAS V LUEGO MODIFICARLOS PARA QUE NOS SATISFAGAN 
CIENTO POR CIENTO. 

As) es. A medlda que vamos aprendiendo, nos damos cuenta de la Inflnidad de 
cosas que se pueden hacer con el Atari. 

Y tamblen es importante ir aprendiendo nuevas tecnlcas, no tan solo para 
desarrollar programas mas eflclentes, sino que tamblen para sacar mas 
provecho del equipo. 

A VER, COMO SERI A ESO. 

Mira. Revisa el programa que aparece en las pSglnas slgulentes y veras que es 
muy util para Ingresar una pantalla completa de texto. El computador ublcara 
automatlcamente esta pantalla en un arreglo. 

AH! TE REFIERES A LO QUE SE CONOCE COMO EDICION DE PANTALLA. 

Asl es. La Edlclbn de Pantalla, es un medio muy convenlente para el Ingreso de 
datos y texto en archlvos computaclonales. 

EN REALIDAD ES MUY ABURRIDO INGRESAR DATOS EN UN ATARI. HAY QUE 
DISENAR LA PANTALLA Y LUEGO INGRESAR UN REGISTRO A LA VEZ. 

Existen varlas soluclones para este problema y una de las mejores se presenta 
para el Atari 800XL. 

ZEN SERIO? 6Y DE QUE SE TRATA? 

La clave es la capacldad de controlar la pantalla y "verter" su contenldo 
rapldamente con la tecnlca del "teclado dlnamico". 

6TECLAD0 DINAMICO? NO LO HABIA ESCUCHADO NUNCA. 

El slgulente programa es un slstema que demuestra este prlnclplo. 

<LES MUY COMPL1CADA LA RUTINA? 

No, es muy simple. Se establecen primero, los margenes de la pantalla, 
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haciendo una pantalla mas chica. En este ejemplo, las dimensiones de la 
pantalla son 16 lineas verticales y 35 horizontales. La columna de numeros 
que aparece a la izqulerda de la pantalla, se supone que esta fuera de la 
pantalla. 

Y DESPUES DE PONER LOS MARGENES 6QUE PASA? 

Se toma los caracteres del teclado y se muestran en la pantalla, luego la 
rutina verifica si se sobrepaso el borde de la pantalla, haciendo un PEEK en las 
localizaciones 84 y 85. 

6QUE PASA CON LOS RETORNOS DE CARRO (RETURN)? 

No tienen otro efecto que imprimir el caracter que !o representa. 

6Y COMO VUELVO AL PRINCIPIO? 

En el programa Editor de Pantalla, CONTROL J se usa como una serial. El 
programa pide una confirmacion y si se escribe una "S", se pasa a la rutina del 
"teclado dinamico". 

6QUE PASA CON ESA RUTINA? 

En la rutina del teclado dinamico, el cursor se ubica o coloca (POSITION) y se 
pide una entrada (INPUT) desde el editor, y el teclado dinamico se activa y 
desactiva a medida que se reconocen las 16 lineas. 

iYA! QUIERO VER EL PROGRAMA. 


Esta bien. Aqui lo tienes, usalo: 


0 REM SAVE “DfDITOR" 

10 REM * EDI TOR DE PANTALLA * 

100 DIM B*(600), A$(40) 

ISO ? CHR$( 125) 

120 60SUB500 
130 OPEN * 1,4,0, K:“ 

I40REM******»»*** ,, »*****"***»*******»»»*****»**»*»*»»*** 
150 POSITION 3,0:? :60SUB 1000 
160 6ET *1,T 

165 IF T* 10 THEN 230:REM 10-CTRL“J“ 

1?0 IF T-20 THEN 150:REM 20-CTRLT 
180 IF PEEK(85>36 THEN 60SUB 1000 
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190 IF PEEK(85)>38 THEN POKE 85,38:60SUB 1000:60T0 160 

200 IF PEEK(84)>16 OR PEEK(84) <1 THEN 150 

210 IF T-156 0RT-157 0RT-125 THEN 160 

220 ? CHR$(T);:60T0 160 

230 POSITION 3,18 

235 ? "ESTA SE6UR0?";:6ET *1,X 

236 POSITION 3,18 

237 ? * 

240 IF XoASCCS”) THEN 150 

250 REM ***««**«***««*«**«**«*««««***««*«*««««**«*«****«««* 

260 FOR 1-1 TO 16 

262 POSITION 3,1 

264 POKE 842,13 

266 INPUT A$ 

270 POKE 842,12 

280 B$(l*35-34,l*35)-A$ 

290 NEXT I 

300 REM «««««««*«*««*•«««**««*««*«««««««««*««***««*«*****««« 

310 STOP 

315 ? CHR$(125) 

320 FOR 1-1 TO 16 
330 ? B$(l*35-34 ,1*35) 

340 NEXT I 
350 60SUB 500 
355 60T0 150 
360 STOP 
500 B$(1K " 

510B$(600K 
520 B$(2)-B$ 

600 POKE 82,0 
602 POSITION 0,0:? 

604 FOR 1-1 TO 16:?I:NEXT I 
606 POKE 82,4 
610 POSITION 3,0 

620 ? "USE CTRL J PARA ACEPTAR" :RETURN 
1000 FOR 1-1 TO 5 
1010 SOUND 0,50,10,10 
1020 NEXT I 

1030 SOUND 0,0,0,0:RETURN 


ITANTOS POKES! 


No son tantos. S61o los que aparecen entre las llneas 260 y 270. Sirven para 
leer desde la pantalla a la variable llamada A$. Ya aprenderemos mas 
adelante como usar bien las instrucciones PEEK y POKE. 

EN REAL I DAD ESTA ES UNA RUTINA, SUPONGO QUE DEBE FORMAR PARTE DE 
ALGUN PROGRAMA. 

Asi es. Generalmente, A$ se escribe a un archlvo en disco. En este programa 
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de ejemplo, simplemente lo copio a otro string (B$). 

6Y PARA QUE LA INSTRUCCION STOP? 

Este programa de demostracion se detiene cuando se transffere el contenldo 
desde A$ a B$. SI se usa CONT se replte el clclo complete. 

ME SORPRENDE BAST ANTE QUE SE PUEDA HACER ALGO ASI CON UN LENGUAJE 
COMO BASIC. 

Para que no menosprecies el BASIC. SI lo usas blen puedes lograr cosas mas 
sorprendentes todavla. Aunque llmitado en algunas formas, generalmente es 
mas "amistoso" de lo que se plensa. 

AHORA ME GUST ARIA DIBUJAR. 

6Dlbujar?. SI, puede ser. iHas usado las instrucclones PLOT y DRAWTO? 

MASOMENOS. PERO ME ENCANTARIA APRENDER A USARLAS BIEN. 

SI alguna vez haz tratado de graflcar alguna flgura complicada, e Incluso 
alguna flgura simple, sabras que consume mucho tlempo. 

iME LO DICES AMI! 

Bueno, pues <Lpor que no hacer que el computador lo haga por tl? 

CTODO EL TRABAJO? 

El programa que te voy a ensenar, te permite hacer el dibujo en la pantalla 
usando el joystick, y lueqo el computador lo qrafic3 blen con las Instrucclones 
PLOT y DRAWTO. 

IFANTASTICO! 6QUE TENGO QUE HACER? 

Escribe culdadosamente el programa, sin tratar de acortarlo para que no te 
equivoques. 


NO TE PREOCUPES, S1EMPRE SI60 TUS INSTRUCCIONES AL PIE DE LA LETRA. 
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Los siguientes pasos, te muestran como hacer un cuadrado con una equis (x), 
en su interior. A primera vista, te parecera un poco confuso, pero a medida 
que vayas aprendiendo, te saldr^ mucho mas facil. 

I. - Escoge el modo grafico que quieras. Te sugiero el modo grafico 3 para 

empezar. 

2 - Escoge el color del cursor. 

3.- Escoge la luminosldad del cursor (con 7 obtendras una buena sombra) 

4- Escoge el color del fondo. 

5.- Mueve al cursor a un punto inicial y dlbuja un lado del cuadrado 
(presiona el boton del joystick para dibujar). 

6 - Ublca el cursor en una de las esqulnas (esquina 1), y luego presiona "P" 
(estas PLOTTING (dibujando) tu primera linea). 

7.- Muevete a la segunda esquina, no Importa el camino que sigas y 
presiona la ”D". Acabas de hacer que el computador dibuje (DRAWTO) 
para tl. 

8 - Para la segunda llnea permanece en la esquina N fi 2 y presiona "P". 

Muevete a la tercera esquina y presiona “D". 

9.- Sigue el mismo procedimiento hasta volver a la esquina N 0 1. 

10- Cuando termines tu cuarta llnea, comienza una nueva (presionando 
”P"). Muevete a la esquina diagonal y termina la linea. 

II. - Haz lo mismo con las otras dos esquinas. 

12. - Presiona la tecla ESCAPE. 

13. - Veras que ingresan algunas instrucciones al programa y luego estaras 
en modo grafico. 

14. - Deberas tener tu cuadrado con una X en el interior. 

Las lineas 700 - 898 han sido reservadas para tus instrucciones PLOT - 
DRAWTO. Puedes listarlas todas las veces que quieras, pero no las ejecutes 
para volver al dibujo. En vez de eso escribe "G.4000”. 

Te dards cuenta que el cursor se mueve lentamente en modo grafico 8. Si 
puedes dibujar mas rapido, presiona la "F". Cuando quieras dibujar mas 
lento, deberas disminuir la velocidad del cursor, presionando la "S”. 

Si quieres comenzar una nueva figura o dibujar debes sacar las lineas 
700-898. Asegurate que la linea 700 sea: 

700 RETURN 
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AquI tlenes e) Proqrama, 

0 REM SAVE “DiDIBUJA” 

1 REM *PROGRAMA QUE DIBUJA* 

2 REM ***-> * 

3 DIM AN$( 1 ):LI»699:6RAPH1CS Cs.SETCOLOR 2,0,0:? :? :? "MODO GRAF ICO (3 AL 8)";:INPUT 
MODO:IF M0D0=8THEN 5. 

4 ? :? "COLOR DEL CURSOR (0 A 14)“;:INPUT CC:? :? “LUMINOSIDAD DEL CURSOR (0 A 
14)';'.INPUT CL 

5 ? :? “FONDO DE COLOR (SI 0 NO)“;:INPUT AN$:IF AN$=“N" THEN 7 

6 ? :? “CaOR DEL FONDO (0 A 14)“::INPUT BC:? :? "LUMINOSIDAD DEL FONDO (0 A 14)'';:INPUT 
BL 

7 IF M000=8 THEN HRNG»319:VRNG=159 

8 IF MODO=6 OR M0D0=7 THEN HRNG=159:VRN6=79 

9 IF M0D0-4 OR MODO-5 THEN HRNG=79:VRN6=39 
11 IF MODO-3 THEN HRNG=38:VRNG=19 

14 GRAPHICS M0D0:SETC0L0R 2,BC,BL:SETC0L0R 0,CC,CL:SETC0L0R 4,BC,BL:C0L0R 1 iPOKE 
752,1 :L*=500:G0SUB 700 
17 ? “HORIZONTAL - "VERTICAL - " 

20 60SUB 100:IF STRIG(0)=0 THEN PLOT H,V:60T0 20 
30 PLOT H,V:FOR X=1 TO 5:NEXT XPOSITION H,V:? # 6;“ “:GOTO 20 
100 S=STICK(0):IF S-11 THEN H-H-1 
105 IF S-5 THEN H-H+1 :V-V+1 
110 IF S-7 THEN H-H+1 
115 IF S-6 THEN H=H+1 :V=V-1 
120 IF S-14 THEN V-V-1 
125 IF S-13 THEN V-V+1 
130 IF S=9 THEN H-H-1:V*V+1 
135 IF S-10 THEN H-H-1:V«V-1 
140 IF H<0 THEN H-0 
142 IF H>HRN6 THEN H»HRN6 
144 IF V>VRNG THEN V»VRNG 
150 IF V<0 THEN V=0 

155 IF MM=0 THEN POKE 656,0:P0KE 657,18:? “MEM.DISP.:';FRE(0):MM=1 

160 IF PEEK(764)=56 THEN 60SUB 2000:POKE 656,2:? “RAPIDEZCDIBUJA MAS LENTO) 

“ :F T= 1 :GOSUB 440 

165 IF PEEK(764)»62 OR 0K=0 THEN GOSUB 2000:P0KE 656,2:? “*** DIBUJANDO 
FACILMENTE* * * “:FT-0:G0SUB 440:0K=1 
170 IF FT-1 THEN RETURN 

180 IF PEEK(764)»10 THEN GOSUB 2000:P0KE 656,1 POKE 657,15:? “GRAF.“;H;",";V;“ “:GOSUB 
L:60SUB 440 

185 IF PEEK(764)-28 THEN 1010 

190 IF PEEK(764)=58 THEN GOSUB 2000P0KE 656,1 POKE 657,27:? “DIB.“;H;",“;V; “ “:60SUB 

L :GOSUB 440 

210 POKE 656,0:P0KE 657,13:? H;“ " 

230 POKE 657,11:? V;" “ 

300 RETURN 

440 POKE 764,255:RETURN 
500 L-503: A-H :B-V :RE TURN 
503 L -510 :C*H :D-V :RETURN 
510 L=513:E-H:F«V:RETURN 
513 L-520:G-H:I-V RETURN 
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520 

523 

530 

533 

540 

543 

550 

553 

560 

563 

570 

573 

580 

583 

590 

593 

600 

603 

650 

700 

899 

950 

951 

952 
1010 
1012 
1015 

1020 

1030 

1040 

1100 
2000 
2001 
2002 
2003 

4000 

4001 

4002 


1-523: J-H :K-V :RETURN 
L-530:M»H :N=V :RETURN 
1-533:0-H :P« V :RETURN 
L-540:0-H:R-V:RETURN 
L-543:SS-H :T -V :RETURN 
L-550:U-H:W-V:RETURN 
t-553:Y-H :Z-V :RETURN 
L=560:AA=H:AB=V:RETURN 
L-563:AC-H:AD=V:RETURN 
L=570:AE=H:AF=V:RETURN 
L-573: A6-H :AH=V :RETURN 


L-580:AI-H: AJ-V:RETURN 
L-583: AK-H :AL=V :RETURN 
L=590:AM=H:AN=V:RETURN 
L-593:AO-H:AP-V:RETURN 
1-600:AQ-H: AR-V :RETl)RN 
L-603:AS-H :AT -V :RETURN 
L-650:AU-H:AV-V :RETURN 


60T0 1010 

RETURN 

RETURN 

IF DD=0 AND EE-0 AND FF-0 AND 66=0 THEN RETURN 
LKI+1 

? LI;* PLOT ";DD;Y;EE;":DRAWTO “;FF;Y;66:RETURN 
6RAPHICS 0 

7 •? •? 


l • » 0 0 


DD-A :EE=B :FF=C :66=D :60SUB 950 :DD=E :EE=F :FF-6:66=l :60SUB 950 :DD=J: 
EE-K:FF-f1:66-N:60SUB 950 

DD=0:EE=P:FF=Q:66=R:60SUB 950:DD=SS:EE=T:FF=U:66=W:60SUB 950: 

DD-X :EE=Z :FF=AA :66=AB :60SUB 950 

DD=AC:EE=AD:FF=AE :66=AF :60SUB 950:DD-A6:EE=AH:FF-AI:66=AJ: 60SUB 
950 :DD=AK :EE=AL :FF=AM :66=AN :60SUB 950 

DD-A0:EE=AP:FF=AQ:66-AR:60SUB 950:DD=AS:£E=AT:FF=AU:66=AV: 60SUB 950:? "60T0 
4000" 

POSITION 0, 0:P0KE 842,13:END 
SOUND 0,17,10,10 
FOR X-1 TO 7:NEXT X 


SOUND 0,0,0,0 
RETURN 


A=0 :B=0 :C=0 :D=0 :E=0 :F=0:6=0 :l=0 :J=0 :K=01=0 :M=0 :N=0:0=0 :P=0:Q=0:R=0 


:SS=0 :T=0 :V-0 :W=0 

Y=0:Z=0 :AA=0 :AB=0:AC=0 :AD=0 :AE=0 :AF=0:A6=0 :AH=0 :AI=0 :AJ=0 :AK=0: 


AL -0: AM-0: AN-0: A0=0 :AP=0 :POKE 842,12 

AQ=0 :AR=0 :AS=0 :AT=0 :AU=0 :A V*0:LI=LI+1:11M=0:OK=0:60TO 14 


IME ENCANTA HACER DIBUJOS Y GRAF I COS! LO QUE ME DA UN POCO DE RABIA ES 
TENER QUE HACER TANTAS VECES EL MISMO DIBUJO. 


6C6mo? No te entiendo. 
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CLARO. SI TENGO UN DIBUJO Y LO QUIERO OCUPAR EN OTROS PROGRAMAS TENGO 
QUE VOLVER A DIBUJARLO. Y PARA ESO HAY QUE USAR UN MONTON DE 
INSTRUCCIONES: POSITION, PRINT, ETC. 

Tengo un programa que creo te puede servir para eso. 

6EN SERIO? I ES MUY COMPLICADO? 

No, no mucho. Este programa permite hacer cualquier tipo de caracteres 
graficos en una pantalla, con GRAPHICS 0. 

LV COMO LOS USO DESPUES? 

La pantalla, tal como queda finalmente, se graba en un diskette con numeros 
de llnea que puedan agregarse a un programa principal por medio de la 
instruccidn ENTER. 

Es importante que sigas algunas instrucciones. 

MIENTRAS NO SEAN DEMASIADAS. 

No te preocupes. Despues de ejecutar el programa y de darle un nombre para 
grabar los resultados, no debes hacer nada para mover la pantalla. 

iQUE SIGNIFICA ESO? 

Que lo que dibujas tiene que ser hecho con el cursor y no debes presionar 
nunca la tecla RETURN. 

Es recomendable que la primera cosa que hagas sea borrar el mensaje que 
aparece al iniciar el programa. No borres la palabra CONT que aparecera en la 
linea 22 de tu pantalla. Puedes usar las teclas de movimiento del cursor y 
cualquier otra funcion de edicion del Atari. 

(LLISTO? 

Cuando termines, mueve el cursor a la linea que tiene el CONT y presiona la 
tecla RETURN. 


Vi QUE PAS A AH I? 
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Se ejecutara el programa. Cuando la dlsketera termlne de funclonar, el 
programa ha flnalizado. 

TODO CLARO. <LVEAMOS LAS OPCIONES DEL PROGRAMA? 

Este programa tlene muchas opclones. La unica opcibn que no tienes es mover 
el CONT a la ultima llnea. 

6P0R QUE NO? 

Porque si lo haces la pantalla se movers (SCROLL) cuando preslones la tecla 
RETURN. 

6 Y PUEDO HACER VARIAS PANT ALLAS DIFERENTES? 

Por supuesto. Solo tienes que ejecutar varias veces el programa, una para 
cada pantalla. Tienes que usar una especlflcacibn de archivo diferente y 
cambiar el valor de la llnea 2020 (30000). Como se necesltan exactamente 40 
llneas para grabar una pantalla, incrementa 30000 en bloques de 50 y as! 
tendrbs llneas dlsponibles para Instrucciones RETURN. 

A1 poner juntos todos tus graflcos, slmplemente haz un ENTER de todas las 
especiflcaclones de archivo que usaste y listalas bajo una sola nueva 
especificaclon. 

6Y COMO FUNCIONA EL PROGRAMA? 

El programa simplemente construye un arreglo R$ para que sea Iguai a una 
llnea de BASIC. Concatena un numero de llnea (3000 + I), un comando de 
impresibn (el signo de Interrogaclon) y luego agrega una comil la (con el 

CHR$(34)). 

i Y YO PUEDO PONER UNA COMILLA COMO CARACTER GRAFICO EN LA PANTALLA? 

iBuena pregunta! Lamentablemente la respuesta es NO, ya sabes, se puede 
confundir con la otra comilla. 

Luego, usando la instruccibn LOCATE, se examina cada posicion en la pantalla 
y se agrega a R$ con la instruccibn CHR$(x). 

ME PARECE RARO QUE EN LA LINEA 2035 J COMIENCE CON UN VALOR IGUAL A 2, 
SIEMPRE ES 1. 



COMPU ATARI 


29 


St, pero recuerda que puedes iniclalizar un contador con el valor que tu 
quieras. 

iCIERTO! SI PUEDO IR DISMINUYENDO ESE VALOR. 


Bueno, la ltnea 2035 tnlcialtza J con un 2 para que colncida con los valores 
por omision en la pantalla. 

Si tratas de usar las Itneas resultantes con dtferentes anchos de pantalla, 
entonces se cambia este valor para que colncida con el los. 

6Y NUNCA CIERRAS LA COMILLA? 


Claro que si. R$ se completa con un CHR$(34) terminal, una coma para evitar 
un "scrolling" (CHR$(59)) o un retorno de carro (CHR$( 155)) 


Mira. Aqui tienes el listado del Programa. 


0 REM SAVE “D:ARCHIVA“ 

100 GRAPHICS 0 

110 DIM R*(80),F*(17),I$(10) 

120 ? 1NGRESA EL NOMBRE DEL ARCHIVO"; 

130 INPUT l$:F$=“D:“:F$(LEN(F$)+ 1H$ 

140 GRAPHICS 0 

ISO POSITION 4,22 

160 ? ‘CONT “:STOP 

1900 OPEN * 1,8,0,F$ 

2000 J*0 

2010 FOR 1-0 TO 23 
2020 R*-STR$(30+I) 

2025 R$(LEN(R$)+IKb?" 

2030 R*(LEN(R$)+1KHR$(34) 

2035 FOR J-2 TO 39 
2040 LOCATE J,I,X 
2045 R$(LEN(R$H1KHR$(X) 

2050 NEXT J 

2055 R$(LEN(R$H1KHR$(34) 

2060 R$(LEN(R*)+1)-CHR$(59) 

2065 R$(LEN(R* b 1 KHR$( 155) 

2070 PRINT * 1 ;R$ 

2075 R$=* 

2080 NEXT I 
2090 CLOSE * 1 
2200 POSITION 0,22:? 
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cap n Tyne 2 


VAH ABIES EM AT AH BASIC 


ME DA LA IMPRESION OUE ESTE CAPITULO NO VA A SER MUY ENTRETENIDO 
ZSIGAMOS CON LOS GRAF I COS MEJOR? 


Para muchos programadores, las variables no son tan entretenidas. Pero seras 
capaz de crear programas mucho mas efictentes si entlendes como se 
almacenan y como pueden ser manipulados. 

SUENA INTERESANTE. EXPLICAME UN POCO MAS. 

Existen tres tipos de variables que pueden ser utilizadas por ios 
programadores Atari. 

d-TRES? dXUALES SON? 

Los numericos, los arreglos y ios strings. 

iQUE NOMBRES TAN RAROS! BUENO, YA ME EXPLiCASTE LOS STRINGS, PERO LOS 
OTROS PARECE QUE NO LOS CONOZCO. 

Si, si los conoces. Las variables numericas comunes, representadas con un 
nombre como X, I, TOTAL, SUMA, etc. 

AH! SON LAS VARIABLES QUE USO CON LA INSTRUCCION LET, QUE NO ES 
NECESARIO ESCRIBIR. 

Exacto, El valor de una variable numerica se asigna dentro del programa. 

AS I COMO X = 7 , SUMA = A + B 
y cada variable numerica ocupa 6 bytes de memoria. 

ZY CUAL ES LA DI FERENC IA CON LOS ARREGLOS? 


Los arreglos son con juntos de numeros representados por un nombre de 
variable seguido de un elemento numerico entre parentesis, 
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UN EJEMPLO, POR FAVOR. 

Por ejemplo, A(3), MES(7), etc. Antes de usar un arreglo, debes dimensionarlo 
con el tamano m^ximo estlmado. 

iLA INSTRUCCION DIM!. 

Claro. Tienes que escribir por ejemplo, DIM MES(12). 

6Y CUANTA MEMORIA OCUPAN LOS ARREGLOS? 

Reservan seis bytes de memoria por cada elemento del arreglo. 

EN EL CASO DEL EJEMPLO SI TENGO 12 ELEMENTOS OCUPARIA 12*6 = 72 
BYTES 1QUE HARTO! 

Por eso es muy Importante que dlmenslones muy blen tus arreglos. 

YA SOLO NOS QUEDAN LOS STRINGS. 

Los strings son variables extremadamente versatiles, de ahi su gran utilidad. 

* 

LO QUE RECUERDO BIEN ES QUE LOS STRINGS SE REPRESENTAN CON UN NOMBRE 
DE VARIABLE SEGUIDO DE UN SIGNO PESOS (COMO A$, BLANKS). 

Otra caracteristlca Importante es que tambien deben ser dimensionados. 

6Y PARA QUE SE DI MENS I ON AN LOS STRINGS? 

Para que el computador reserve memoria para el string. Cada caracter en una 
variable tipo string se almacena como un byte, 

JSabes lo que es la Tabla de Nombres de Variable? 

NO TENGO LAMENOR IDEA. 

Es una lista de todos los nombres de variable que se han ingresado, 
almacenados en numeros de cddigo ATASCI I en la misma secuencia en la cual 
fueron encontrados dentro del programa. 


6Y QUE MAS INDICA ESTA TABLA? 
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Cada nombre de variable identifica el tipo de Variable. Las variables 
numericas se almacenan con 128 agregado al valor ATASCI I del ultimo byte 
del nombre. 

AH I SI QUE NO TE ENTENDI NADA* 

Por ejemplo, el nombre de la variable HIT se describe en tres bytes con los 
valores 72, 73 y 212 (212 = 84 ♦ 128). 

UN POCO MEJOR. 6Y LOS ARRE6L0S? 

Los arreglos se almacenan con un par^ntesis a la izqulerda y tambten se le 
suma 128 como ultimo byte en el nombre. 

SUPONGO QUE PARA EL ULTIMO BYTE EN LOS STRINGS TAMBIEN SE LE SUMA 128. 

Si, y se le agrega ademas el signo pesos. La direccion de memoria para el 
inicio de una tabla de nombres de variable puede determinarse con PEEKS en 
las localizaciones 130 (LO) y 131 (HI) o con NTAB = PEEK (130) + 256* PEEK 
(131). 

(LVAMOS A VER ESTO CON ALGUN PROGRAMA? 

EJecuta el programa siguiente para ver las entradas en la tabla de nombres de 
variables. 

IH QUE HACE EL PROGRAMA ESPECIFICAMENTE? 

Imprime el valor almacenado en los primeros 24 bytes de la tabla, un byte por 
cada caracter en cada nombre de variable. Chequea los resultados con el 
listado de los ATASCI I que aparece en tu manual y no olvides que se le agrego 
128 al ultimo caracter. 

El primer numero impreso es 216, que es la primera variable (*) (88 en codigo 
ATASCII) m£s 128, ya que X es tambten el ultimo caracter. La linea 50 
imprime los nombres con el ultimo caracter en inverso. 
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0 REM SAVE “D:NOMVAR“ 

1 REM PROGRAMA PARA IMPRIMIR TABLA DE 

2 REM NOMBRES DE VARIABLES 

10 X» 12:Y-35:22* 12345:DIM Ad2). HIT(4,9),SMALL$(35).BIG$(612) 
20 NT AB-PEEKL 1301+256* PEEK( 131) 

30 FOR BYTE-0 TO 23 
32 ? PEEK(NTAB+BYTE);\“; 

34 NEXT BYTE 
40 ? :? :? 

50 FOR BYTE=0 TO 23 

52 ? CHR$(PEEK(NTAB+BYTE)); 

54 NEXT BYTE 


Para que te quede mas claro, escribe y ejecuta el siguiente programa. 


d-Y hace lo mismo que el anterior? 


No. Con este programa podras ver el numero de la Variable, el nombre y 8 
bytes de data para cada variable dentro del programa 


PERO LA LINEA 10 ES IGUAL A LA DEL PROGRAMA ANTERIOR. 


Si, esa linea contiene variables de ejemplo para experimentar. 

ME GUST ARIA AGREGARSELO A MIS PROGRAMAS PARA QUE ME L1STE LAS 
VARIABLES. 

Lo puedes modificar y te sirve para tus programas. Revisa el siguiente listado. 

0 REM SAVE “D:V ALVAR" 

1 REM PROGRAMA PARA IMPRIMIR LA 

2 REM TABLA DE VALORES DE VARIABLES 

5 GRAPHICS 0 

10 X-12: Y=35 :ZZ= 12345:DIM A< 12),HIT(4,9),SMALL$(35),BI6$(612) 

15 REM BUSCA LA DIRECCION INICIAL DEL NOMBRE DE LA TABLA 
20 NTAB=PEEK(130)+256*PEEK(131) 

25 REM BUSCA LA DIRECCION INICIAL DEL VALOR DE LA TABLA 
27 VTAB-PEEK(134)+256*PEEK(135) 

30 ? “VAR NOMVAR DATA VTAB":? 

35 1-0 

40 FOR VARNUM-OTO 12 

45 ? “*“;VARNUM; “ 

50 POSITION 9.VARNUM+2 

55 FOR BYTE-0 TO 100 

60 VARCHR-NTAB+BYTE 

65 IF PEEK(VARCHR)> 128 THEN ? CHR$(PEEK(VARCHR h 128), :NTAB= VARCHR+1 :POP '.GOTO 80 
70 ? CHR$(PEEK(VARCHR)); 
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75 NEXT BYTE 

80 POSITION 17.VARNUM+2 

85 FOR BYTE-0 TO 7 

90 ? PEEKiVTAB+VARNUM* 8+BYTE); 

95 IF BYTE<7 THEN ? 

100 NEXT BYTE 

105 ? 

no W+1 

115 NEXT VARNUM 

ES BIEN ELEVADO EL NIVEL DE TODO LO QUE HEMOS VISTO. 6TE ENOJAS SI TE 
PREGUNTO QUE PODEMOS HACER CON TODO ESTO? 


No, por el contrario. Una primera apl icacion es realizar PEEKS sobre la tab la v 


determinar el estado de las distintas Variables. 


DE VERAS, AS! PUEDO VERIFICAR QUE EL PROGRAMA ESTE HACIENDO LO QUE 
QUIERO QUE HAGA. 


Como ya te dije, los strings son muy versatiles. Ya sabes que los strings son 
una serie de numeros ATASCI I y cada nurnero tiene un valor entre 0 y 255 y 
ocupa un byte en la memoria. 

SI, LO RECUERDO. UN STRING DE MIL CARACTERES OCUPA MIL BYTES 
ADYACENTES EN MEMORIA. 


Y esto sugiere una aplicacion interesante. Una rnanera util de reservar una 
cantidad determinada de bytes de memoria, por ejemplo 1000, es dimensionar 
el string. 


COMO A$ (1000) 


Puedes manejar tu propia tabla de valores dentro del string indexando cada 10 
o 100 direcciones. La direccion inicial de tu string puede encontrarse 
facilmente con la funcion ADR(A$). 


SQUE HACE ESA FUNCION? 

La tnstrucclbn 7PEEK (ADR(A$)+99) te entregara el valor del centesimo byte 
en A$. El uso de los strings de esta rnanera es una forma cornun de almacenar 
datos enteros (menores que 256) y subrutinas en lenguaje de maquina. 

Aho« a si que veremos algo sumamente interesante. 
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6EN SERIO? iVA ERA HORA! 6 QUE ES? 

iComo que ya era hora!. A lo mejor la prlmera vez que leas estas cosas no te 
parecercin demasiado interesantes, pero no te daras ni cuenta y ya estaras 
usando estas ideas. 

MENOS PALABRAS Y MAS ACCION. <LDE QUE SE TRATA? 

Bueno, vamos a seguir con nuestro tercer capitulo con el que entenderas 
mucho mejor los programas anteriores, ya ver^s. 
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(CAP HTML® J 


PIEEIKS y PO KES m a>H MAM 


SI eres un programador Basic que recien empiezas, seguramente aun no te haz 
dado cuenta de las capacidades adiclonales que tienes al usar Basic en tu 
Atari. 

ZPOR QUE? ZACASO ES DIFERENTE AL BASIC DE OTROS EQUIPOS? 

Asl es y mas que eso, no es el Basic sino el Atari, De hecho, el Atari Basic 
utlliza algunas capacidades que tlene Atari y no otros equipos.. 

6EN SERIO? 

SI, es en serio, Por ejemplo, puedes redefinir el conjunto de caracteres de tal 
forma, que la letra A aparezca como un marciano Invasor. 

iAH! AS I SE DEBEN HACER LOS JUE60S, 

Correcto. Si estas programando, puedes hacer que el programador tenga el 
completo control sobre la pantalla de graficos. Y como estas, muchas otras 
caracterlsticas adiclonales de tu Atari. 

PERO A LO MEJOR NO PUEDO USAR TOD AS ESTAS COS AS ESPECIALES CON 
BASIC. 

Es posible usar la gran mayoria en Basic. Algunas requieren que se trabaje en 
lenguaje de maquina. 

...Y UN PRI NCI PI ANTE COMO YO NO TIENE IDEA DE UTILIZARLAS. 

Sin embargo, para utilizarlas directamente, solo necesitas dos palabras 
especiales en Basic: PEEK y POKE. 


6PEEK y POKE? 6QUE SI6NIFICAN? 
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> a io descubrirds. Primero vamos a hacer un pequeno repaso. 

Veamos: iSabes cual es el procesador de tu Atari? 

BUENO. EL PROCESADOR, ES EL CEREBRO DE Ml ATARI. 

Correcto, y el modelo del procesador es el 6502. IS cuantos kilobytes puede 
direccionar? 

^DIRECCIONAR? 

SI, cuantos kilobytes puede manejar. Es decir, en que lugares puede guardar 
informacion y de cuales otros, puede sacar informacion. 

iAH! SUPONGO QUE 64 Kb, POR LO MENOS EL MANUAL DICE QUE EL EQUIPO TIENE 
64 Kb DE MEMORIA RAM. 

Casi, casi. Puede direccionar directamente 65.536 ubicaciones de memoria en 
RAM y, ademas tiene otra memoria en ROM. 

6Y PARA QUE DIRECCIONA LA RAM? 

Para poder grabar alii los datos y programas, 

6Y LA ROM? 

Como en la ROM se guarda el Basic y el sistema operativo, necesito poder 
accesarlos y para eso, tengo que direccionarla. 

Ademas, hay una tercera clase de memoria. 

iNO PUEDE SER! LOS COMPUTADORES SOLO TIENEN MEMORIA RAM Y ROM. 

Tienes razon. En realidad, no es memoria propiamente tal. Se trata de chips, 
utilizados para las operaciones de Entrada y Salida. 

MEJOR ME EXPLICAS MAS CLARAMENTE, PORQUE NO ENTIENDO NAD A. 

Empecemos de cero. ?Sabes que es un chip? 
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SI. SON LOS CIRCUITOS INTEGRADOS. 

Ya. <tY una operacion de Entrada y Salida? 

SI. SE REF I ERE A GRABAR 0 RECUPERAR INFORMACION, DESDE 0 HACIA EL 
COMPUTADOR. 

Bueno, resulta que tu Atari, tiene algunos chips de entrada y salida con 
nombres blen especlales. Elios son: 

- GTIA , un chip grafico 

- ANTIC, un chip que dlrecclona el GTIA para produclr modos graficos 

- POKEY, un chip que lee el teclado y maneja las operaciones de ehtrada y 
salida, usadas para comunicarse con disketteras e impresoras. 

6Y COMO FUNCIONAN ESTOS CHIPS? 

Estos chips necesitan Informacion, como por ejemplo, que caracteres poner eh 
la pahtalla y, puedeh produclr Informacion, por ejemplo: saber que tecla se 
esta presionando. 

Para hacer las cosas mas simples, tu manejas estos chips como 
localizaciones de memoria. 

AH! POR ESO DIJISTE QUE ERA UN TIPO DE MEMORIA. 

Correcto. A! principlo se deflnen dlstintas dlrecclones, en las cuales se les 
puede informar algo a estos chips. 

COMO CARTAS EN EL CORREO. 

Asi es. En este caso, lo haces con las Instrucciones PEEK y POKE. 

POKE, sirve para modiflcar la accion de un chip y PEEK, entrega informacibn 
desde el chip. 

Desde un punto de vista computacional, estas son localizaciones de memoria. 
En efecto, algunas se comportan como la RAM. 

6DE QUE FORMA? 

Por ejemplo, puedes colocar (POKE) un numero en una localizacibn, y luego 
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leer (PEEK) la localizacion para obtener el numero de vuelta. 

0 SEA, QUE VO 6UARD0 UN NUMERO EN CUALQUIER L0CALIZAC10N DE MEMORIA V 
LUEGO, DOY LA LOCALIZACION Y ME APARECE EL NUMERO. 

La mayorla de las direcclones de Entrada/Salida, son solo de lectura o solo de 
escritura. La ROM, es solo de lectura. 

Las locallzaciones de memoria solo de escritura, pueden ser cambiadas. 
iAH! TANTAS COSAS. 

As! es tu Atari, muy completo. Te lo explico: si tu escribes (POKE) en una 
direccion, sucede una cosa; mientras que si lees (PEEK), sucede otra. 

A VER, RESUMAMOS. POKE SE USA PARA,.., PARA... 

POKE, se usa para cambiar el contenido de la memoria. El formate es: 

POKE direccion, dato 

6CUALES PUEDEN SER LAS DIRECCIONES? 

La direccion es un numero entre 0 y 65535. Cada numero accesa una celda de 
memoria, que puede contener un numero entre 0 y 255. 

LAS CELDAS EN LA MEMORIA, SON COMO LAS CASILLAS DEL CORREO. 6VERDAD? 

Si, asi se representan esquematicamente. Mas tecnicamente, se puede pensar 
en una celda de memoria como un grupo de 8 interruptores. 

<MNTERRUPTORES? 

iClaro! un interruptor puede tomar 2 valores. 
iENCENDIDO Y APAGADO! 

Correcto. Y si decimos ”encendido=1” y "apagado=0", cada interruptor puede 
tener sdlo dos valores: 0 y 1. 
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AH! ME ACORDE! ESTAS HABL ANDO DE LOS NUMEROS BINARIOS. 

Muy bien. Entonces, tenemos este grupo de 8 interruptores con dos estados 
cada uno, y con los cuales se puede representar distintos numeros. 

6Cudl es el 0 en blnario? 

BUENO, ES IGUAL QUE EN LOS NUMEROS NUESTROS: 0 
Es decir, todos los Interruptores deben estar en 0. <LY el 255? 

SUPONGO QUE SERAN OCHO UNOS. 

As! es. 1 1 1 1 1 1 1 1 = 255 

ME DISTE EL FORMATO DEL POKE, PERO DEL POBRE PEEK NUNCA MAS SE SUPO. 

PEEK es el inverso de POKE, pero es mas una funcion que una instruccion. 

6P0R QUE? 

Porque PEEK entrega como resultado un valor, y cualquler instruccion que use 
un valor, puede usar un PEEK. 

POR EJEMPLO... 

Veamos la instruccidn PRINT. Tu puedes decir PRINT 4, lo que te muestra un 
4. PRINT TOTAL, te muestra el contenido de la variable TOTAL y PRINT PEEK 
(53076), te muestra el valor almacenado en la localIzacion 53076. 

ENTONCES VO PODRIA USAR UN PEEK DENTRO DE UN POKE. 

Correcto. Esta blen si escribes POKE 106, PEEK (30865). 

CUANDO MENCIONASTE LA INSTRUCCION PEEK, DIJISTE ALGO DE QUE SE PODIA 
REDEFINIR EL CONJUNTO DE CARACTERES DE Ml ATARI. 

Asi es. Veamos <Lc6mo lees un caracter desde el teclado, usando BASIC? 


CON LA INSTRUCCION GET 
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Correcto. Pero que espera GET. 

NO ENTIENDO TU PREGUNTA. 

Que tienes que hacer, para que el computador sepa la tecla que presionaste. 

NO SE. BUENO, VO PRESIONO UNA TECLA Y EL RESTO LO HACE EL COMPUTADOR. 

Eso es el computador espera que presiones una tecla. Si no presionas ninguna, 
el programs se detendra hasta que presiones alguna. 

iES VERDAD! NO ME HABIA DADO CUENTA 

En vez de usar GET, puedes chequear la localizacion 764 con PEEK (764). 
tPOR QUE LA 764? 

Porque en esa localizacidn, el computador guarda la tecla que presionaste. 

6Y QUE PASA SI NO PRESIONO NADA? 

Si PEEK (764) = 255, signifies que no se ha presionado ninguna tecla. Si el 
valor que te entrega es diferente a 255, puedes usar la instruction GET para 
saber que tecla fue presionada. 

YAME PARECE MAS UTIL LA INSTRUCION PEEK. 

A ver, ly que tienes que hacer antes de usar la instruccion GET? 

AL PRINCIPIO DEL PROGRAMA, DEBO ABRIR UN ARCHIVO QUE DIRECCIONE EL 
TECLADO, LO HAGO CON LA INSTRUCCION OPEN. 

Bueno, si tu solo quieres esperar que una tecla sea presionada, puedes usar 
algo como: 


10 PRINT "PRESIONE CUALQUIER TECLA PARA CONTINUAR 
20 IF PEEK (764) - 255 THEN 20 
30 POKE 764, 255 
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6Y que pasa con el poke DE LA INSTRUCCION 30? 

Te entrega un numero, que es la representacldn de la tecla expresado en 
t£rmlnos de la flla y columna, en’las cuales esta la tecla. 

Ejecuta este pequeno programa, para ver que valores te entrega 

10 PRINT PEEK (764): GOTO 10 

ZY COMO VEO LOS VALORES? 

Cuando preslonas una tecla, te muestra el valor. 

APARECEN PUROS 255 

As! es. Observa que mlentras no presiones una tecla, te aparecera el 255. 

iES VERDAD! CUANDO PRESIONO OTRAS TECLAS, APARECEN OTROS NUMEROS. 

LO QUE NO TENGO CLARO, ES EL POKE 764, 255. 

Poke 764, 255 elimlna cualquler valor almacenado en esa localIzactOn. 

6Y PUEDO TENER POKE 764 CON OTROS VALORES? 

Por supuesto. Y asi puedes ver como esta instruccion hace que el computador 
escrlba un caracter, automaticamente. 

AH, YA. Y AHORA SUPONGAMOS QUE YO QUIERO SABER SI LA TECLA SE 
PRESIONO UNA SOLA VEZ 0 SE MANTIENE PRES10NADA. 

Mira, este pequeno programa que encontraras a continuacion, Simula la accion 
de un organo. Cuando preslonas una tecla, emlte un sonldo tanto tlempo como 
la tecla slgue preslonada. 

ZY NO PARA? 

Si, para cuando dejas de presionar la tecla. 

10 IF PEEK (53775) - 255 THEN SOUND 0,0,0,0 : GOTO 10 
20 SOUND 0, 100, 10,8 : GOTO 10 
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tQUE TIENE LA LOCALIZACION 53775? 

La localizacibn 53775 tlene el valor 255, si no se ha preslonado ninguna tecla. 
i'i QUE 0TR05 VALORES PUEDE TENER? 

Un 251 si una tecla se mantiene presionada y un 247, si la tecla SHIFT se 
esta presionando. 

Ya esta bueno, ahora aprendamos otras cosas. <^Conoces la tecla INVERSE? 

IUF! INO LA VOY A CONOCER! ES SUMAMENTE FACIL PRESIONARLA POR 
EQUIVOCACION, EN LOS MODELOS 600 Y 800. 

Bueno, si tu estas aceptando o ingresando informacion a traves del teclado, 
seguramente no quieres que el usuario ingrese caracteres en inverso o en 
minusculas. 

SI. UNA VEZ HICE UN PROGRAMA PARA COMPARAR UNOS NOMBRES, Y NO SAB IA 
PORQUE NO ME RESULTABA. AL FINAL, DESCUBRI QUE ESTABA COMPARANDO 
UNA MINUSCULA CON UNA MAYUSCULA. 

Claro que tambibn querras, que a veces el usuario presione la tecla INVERSE, 
de tal forma que todo lo que el ingrese, quede en modo inverso. 

SI, PUEDE SER. 

Pues bien, la local izacion 694 controla esto. 

ZCOMO? 

Tienes que hacerle un POKE con 128 para forzar los caracteres inversos y 
con 0 para deshabilitarlos. 

IESTO ME PUEDE SERVIR PARA LOS LIST ADOS Y PANT ALLAS! 

No, no te equivoques. Esta localizacfbn no afectara la forma en que se 
imprime el texto, s6io la forma en que se recibe la informacibn del teclado. 
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YA, TE PROMETO QUE NO SE ME OLVIDA. <LY EL 694, TAMBIEN CONTROLA LAS 
MAYUSCULAS/MINUSCULAS? 

La local izacibn 702, se preocupa de las mayusculas y minusculas, 
almacenando el estado de la tecla CAPS/LOCK. Si la tecla CAPS esta 
presionada, es decir mayusculas, la local izacion 702 guarda un 64. 

6Y CUANDO ESTA EN MINUSCULAS, CUAL ES EL VALOR DE LA LOCALIZACION 
702? 

Un 0. Ademas, puede tomar el valor 128 si esta en modo CTRL. 

USEMOS EL POKE PARA PROBAR TODO ESTO. 


Puedes usar POKE para obligar al teclado a que este en un modo determlnado. 
Prueba esto. 

0 REM SAVE “0 .VALVAR" 

5 GRAPHICS 0 

10 DIM A$(10):TRAP 100 

20 ? “INGRESA 0 PARA MINUSCULAS"? “64 PARA MAYUSCULAS":? "128 PARA MODO DE CONTROL":? 

“<RETURN> TERMINA" 

30 INPUT X 

35 IF X< >0 AND X<>64 AND X<> 128 THEN 30 
40 POKE 702.X 
50 INPUT A$ 

60 ? A$:? :? 

70 GOTO 20 
100 ? "}’:END 

ENCUENTRO MUY UTIL ESTO DE MANEJAR EL TECLADO, PUEDO HACER COSAS BIEN 
1NTERES ANTES, 

Hay algunas teclas con las que las cosas son un poco diferentes. Las teclas 
START, OPTION y SELECT, no se pueden leer como otras teclas del teclado. 

6COMO LAS LEO? 


Puedes leerlas facilmente, revisando la local izacion 53279. Aqui tienes una 
lista de los posibles valores que te entrega: 
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7 no se ha presionado ninguna tecla 
6 solo la tecla START 
5 solo la tecla SELECT 

3 solo la tecla OPTION 

0 START, SELECT y OPTION simultaneamente 

1 OPTION y SELECT juntas 

2 OPTION y START juntas 

4 SELECT y START juntas 

QUE TAL SI ME HACES UN PROGRAMA PARA DEMOSTRAR LO ANTERIOR. 


Aqui lo tienes. 


O REM SAVE “D.STARTOP” 

5 GRAPHICS 0 

10 ? “PRESI0NA ALGUNA TECLA 0E FUNCIONES" 
15 A=PEEK(53279) 

20 IF PEEK(53279)-A THEN 20 

30 ON A+1 60SUB 50,60,70,80,90,100,110 

40 60T0 15 

50 ? "START+SELECT+OPTION“:RETURN 
60 ? ”0PTI0N+SELECT+0PTI0N":RETURN 
70 ? ”0PTI0N+START+0PTI0N”:RETURN 
80 ? “OPTION”:RETURN 
90 ? “SELECT+START“:RETURN 
100 ? “SELECT”:RETURN 
110? “START” :RE TURN 


^Recuerdas que algunas localizaciones tienen diferentes funciones, cuando se 
lee o se escribe en el las? 


SI, ALGUNA VEZ LO MENCIONASTE. 


La local izacion 53279 es una de el las. 


ICOMO SI TUVIERA DOS PERSONAL IDADES! 


M£s o menos. Cuando la lees, te indica que teclas de la consola estan slendo 
presionadas en forma continua. 


LS CUANDO PONGO ALGUN VALOR EN ESA LOCALIZACION? 
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Si le haces un POKE 53279,0 se genera un suave "click". 

6P0R QUE? 

El cero hace que el parlante suene, pero el sistema operative se encarga de 
hacerlo, poniendo un 8 en la local izacion 53279 cada 1/60 de segundo. 
Haciendo varios POKE 53279,0 en esta local izacion, creas un ruido como un 
zumbido o alarma. 

EN REALIDAD NO TIENE NADA QUE VER EL EFECTO DEL POKE CON EL DEL PEEK 
SOBRE ESTA L0CAL1ZACI0N. 

Y para que veas lo Otil que son estas instrucciones, te voy a ensenar como 
anular la tecla BREAK para evitar que te listen tus programas BASIC. 

AH! QUE INTERESANTE. AS I Ml PROP I ED AD INTELECTUAL SE MANTENDRA 
INTACTA. NAD IE PODRA COPIAR MIS PROGRAMAS. 

Simplemente usa estas dos instrucciones POKE: 

POKE 16,64 
POKE 53774,64 

6Y COMO PUEDO VOL VER A UTILIZAR LA TECLA BREAK? 

La tecla BREAK se rehabilita, cambiandote a modo grafico o presionando 
System Reset. 

0 SEA, QUE SI QUIERO QUE LA TECLA BREAK PERMANEZCA ANULADA, i TENGO 
QUE PONER LAS 2 INSTRUCCIONES POKE DESPUES DE CADA INSTRUCCION 
GRAFICA? 

Correcto. Asi es, y tambiAn despues de cada instruccion OPEN. 

ZY PUEDO ANULAR EL SYSTEM RESET? 

Aunque la tecla SYSTEM RESET no puede anularse, puedes hacer algo similar. 
Si haces POKE 580 con un valor distinto de 0, la tecla SYSTEM RESET actuary 
como si hubieses apagado y prendido el equipo. Esto se conoce como "Partida 
en frio”. 
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6PARTIDAEN FRIO? 

Claro, igual que en un auto, sin caientar el motor. La "partida sobre caliente", 
es la que se ejecuta generalmente con esta tecla, cuando el computador ya ha 
estado funclonando. 

NO LE VEO MUCHA UTILIDAD, PERO COMO MUCHAS OTRAS COSAS, ALGUN DIA 
PUEDE SERVIRME. 

iQu£ bueno que pienses asl! Ahora sigamos viendo aplicaciones de POKE. 
Revlsemos su uso en las instrucciones de graficos. 

iME FASCINAN LOS GRAFICOS! 

Puedes usar POKE directamente sobre los registros de color para 
selecclonarlos, aunque es mas f^cil con la instruccion SETCOLOR. 

ALGUN A VENTAJA TENDRA... 

POKE es mas rapido y compacto, ya que solo debe evaluar un numero en vez de 
cuatro. 

6SOLO UNO? 

Asl es, Las localizaciones 708-712, corresponden directamente desde 
SETCOLOR 0 a SETCOLOR 4. Cada localizacion, guarda tanto el color como 
la luminosidad. Slmplemente, multiplica el numero del color (0-15) por 16 y 
sumale la luminosidad (0-15). 

COMO QUEDA ENTONCES. 

SETCOLOR a, b, c corresponde a POKE 708 + a, b * 16 + c, 

Y eso no es todo, en cuanto a graficos. La local izacion 559, puede, entre otras 
cosas, encender o apagar la pantalla. 

6Y PARA QUE ME PUEDE SERVIR? 

Para hacer m£s rapidos los programas. Como toma algun tiempo desplegar la 
pantalla, el Atari puede correr un 30% m£s rapido con la pantalla apagada. 
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AH! ENTONCES PODRIA APAGAR LA PANT ALL A CUANDO TENGA QUE HACER UN 
CALCULO LARGO. 

Si, pero s! es otra persona la que va a usar el programa, debes advertirle para 
que no se asuste. 

SI, POR SUPUESTO. TAMBIEN PODRIA APAGAR LA PANTALLA CUANDO TENGA 
QUE HACER ALGUN GRAF I CO COMPLICADO Y PRENDERLA, PARA HACER QUE EL 
GRAF I CO APAREZCA INST ANT ANEAMENTE. 

Y esta maravilla la logras con POKE 559, 0. 

Z Y PARA VOLVER A NORMAL? 

Con POKE 559, 34. 

Y seguramente, haz' escuchado de las localizaciones 82 y 83. 

LA VERDAD ES QUE NUNCA. 

Bueno, estas local izaciones se usan principalmente para ajustar el ancho de la 
pantalla, ya que algunos televisores no pueden desplegar el ancho total de la 
pantalla. 

ZY QUE SE HACE CON LA LOCALIZACION 82 y 83? 

La localizacion 82, controla el margen izquierdo. 

ZQUE ES EL MARGEN IZQUIERDO? 

El margen izquierdo, es el numero de espacios en bianco desde el borde de la 
pantalla. 

PEEK, te muestra el valor que tiene y POKE, le aslgna el valor que quieres. 
ZCUAL ES EL ANCHO MAXIMO DE LA PANTALLA? 

40 columnas, y eso lo logras con POKE 82, 0. 

LA LOCALIZACION 93, SEGURO QUE ES PARA EL MARGEN DERECHO. 
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Asi es. El margen derecho es un numero entre 0 y 39, y represents el numero 
de espacios desde el lado Izquierdo de la pantalla. 

Despues que cambles los margenes, las instrucciones PRINT slguientes se 
ajustan a los nuevos margenes. 

No hagas nunca el margen izquierdo mas grande que el derecho. 

6P0R QUE NO? 

iPruebalo y te daras cuenta! Ademas, ten presente que si dejas el ancho de la 
pantalla muy pequeno, no podr&s tipear ningun comando. 

AH! PERO AL6UNA FORMA HABRA DE VOLVER A LA PANTALLA NORMAL. 

En cualquier caso, al presionar SYSTEM RESET, el valor del margen izquierdo 
vuelve a 2 y el derecho a 39. 

SABES LO QUE TE QUERIA PREGUNTAR. ES SOBRE EL CURSOR, NO ME GUSTA QUE 
ESTE SIEMPRE EN LA PANTALLA. 

Es sumamente facil deshabilitarlo. Simplemente, haz un POKE 752, 1. 

<LY HABILITARLO? 

Con un 0 en la misma localizacion. Despues que hagas un POKE a esta 
localizacion, el cursor no cambiara hasta que la proxima instruccion PRINTIo 
mueva o hasta que limpies la pantalla. 

6Y ESTA VEZ AFECTAN LOS GRAF I COS? 

Cualquier cambio en los modos graficos re-almacena el cursor, lo mismo que 

SYSTEM RESET 

iEL FAMOSO SYSTEM RESET! 

Ademas puedes controlar la forma en que aparecen los caracteres inversos. 
6EN SERIO? 


Si. Con un numero 2 en la localizacibn 755 los caracteres aparecen inversos. 
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<LCOMO? 

Cada cardcter, es decir letra, numero o signo, se compone de una serle de 
puntos. En el estado normal, todos estos puntos aparecen en el color opuesto 
al del fondo de la pantalla y en el jnverso. 

iYO SE! HE VISTO ALGUNAS LETRAS QUE APARECEN EN INVERSO. POR EJEMPLO, 
SI LA PANTALLA ES NEGRA, APARECE UN CUADRADO VERDE Y DENTRO DE ESE 
CUADRADO, LA LETRA EN NEGRO iSE VE BONITO! 

Un numero 0 en la localizacion 755, devuelve los caracteres a su estado 
normal y adlvlna, que pasa con un 1. 

ZUN 1 ? NO SE. PARA Ml QUE NADA, YO SOLO CONOZCO DOS ESTADOS: INVERS6 

Y NORMAL. 

No, hay muchos mas. Un 1 los hace Invisibles. Un 3 hace que todos los 
caracteres inversos aparezcan como espacios inversos (opacos). 

iTANTAS COSAS! 

Y m£s. Sumale 4 a cualquiera de los valores anteriores y todo el texto 
aparecera como si lo estuvieras proyectando en 1 espejo. 

ZEN SERIO? SER! A IGUAL QUE EN LOS JUEGOS DE VIDEO. 

Ademas, como el cursor tambien se puede considerar como un caracter, la 
localizacion 755, tambien afecta la apariencia del cursor. Prueba este 
programa cortito, para ver como puedes usar el 755, para que el texto 
parpadee: 

100 PRINT “LOS CARACTERES INVERSOS PUEDEN PARPAOEAR" 

110 POKE 755,2 - PEEK (755) 

120 FOR W - 1 TO 50 : NEXT W 
130 60T0 110 

ZY COMO SE DONDE ESTA EL CURSOR? 

Puedes leer f^cilmente la poslcibn del cursor, verificando las localizaciones 
84 y 85. La localizacion 84 guarda la fila. 
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AH! LA POSI Cl ON HORIZONTAL 

Correcto, y la localizaci6n 85 la columna, o pos1c16n vertical. 

...0 SEA QUE EN LA P0S1CI0N 84 PUEDE HABER UN NUMERO DEL 0 AL 23 Y EN LA 
85 UN NUMERO DEL 0 AL 39. 

Y puedes usar la Instrucclon POSITION, para mover dlrectamente el cursor a 
una posicion determinada. Con POKE, puedes cambiar la fila o columna en 
forma separada. 

0 SEA QUE PUEDO MOVER EL CURSOR COMO YO QUIERA: ARRIBA, ABAJO, AL 
LADO, ETC. 

Asi es, oero el cursor no se mueve hasta aue no uses una Instrucclbn Print. 

HMM! 6SABES LO QUE SE ME OCURRE? LA POSICION 85, LA DE LA COLUMNA, SE 
PUEDE USAR COMO TABULADOR, PORQUE EL TECLADO NO TIENE Y EL BASIC 
TAMPOCO. 

IQue buena idea! Asi puedes hacer formatos de pantalla en forma mucho mas 
facll, por ejemplo la linea: 

10 Z - Z + 6 : PRINT TAB (20-19*SIN (Z)); CHR$ (42): 60T0 10, 

escribe una curva sinusoidal en Basic Microsoft. 

6Y SE PUEDE HACER EN ATARI BASIC? 

Por supuesto: 

10 Z - Z + 6 : POKE 85. 20 - 19 » (SIN (Z)): PRINT CHR$ (42): GOTO 10 

iCASI I6UAL! YO PENSE QUE ERA MAS LARGO. 

SI estamos trabajando en un Atari, no en cualquler cosa. 

En modo grdflco, las localizaclones 84 y 85 controlan la poslclbn del cursor 
grbfico, no el cursor de texto. 
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6Y COMO CAMBIO EL CURSOR DE TEXTO EN LOS MODOS GRAFICOS? 

Con las localIzaciones 656 (f Ha) y 657 (columna). Tamblbn puedes camblar la 
locallzaclbn 201, que guarda el numero de espaclos entre las comas. 

IDE QUE ME HABLAS? 

Mira: cuando tu imprlmes una llsta de variables (como PRINT A,B,C$) cada 
vez se tabula dentro de una zona separada de 10 espacios de ancho. Si lo que 
estas imprimiendo sobrepasa la zona que tlene aslgnada, se pone en la 
sigulente y todos los datos que siguen se corren. 

AH, YA VOY ENTENDIENDO. 

Puedes camblar el ancho de la zona haclendo un POKE 201, ancho. 

Nunca pongas un 0 en esa localIzaclOn porque el computador queda dando 
vueltas y mas vueltas, forzandote a preslonar SYSTEM RESET o cortar el 
poder del equipo para que puedas retomar el control. 

PERO DEBE SER UTIL, CUANDO SON NUMEROS PEQUENOS, PARA QUE NO QUEDEN 
MUY SEPARADOS. 

SI, para eso se usa, y ahora, pasando a otra cosa £suena tu dlskettera cuando 
lees o grabas? 

(TERRIBLE! PARECE QUE ESTUV1ERAN CORTANDO CARNE 0 RALLANDO ALGO. 
CLARO QUE SIRVE PARA CERCIORARSE DE QUE ESTA LEYENDO 0 GRABANDO. 

Hay personas que pueden dlstlngulr el ruldo que hace al escrlblr del que hace 
al leer, e Incluso puden declr si hubo a I gun error. 

COMO ALGUNOS MEDICOS. LO QUE ES YO, DE REPENTE PIENSO QUE ME VOY A 
VOLVER LOCO CON TANTOS RUIDOS. 

La soluclbn: POKE 65,0 Inhablllta el parlante, de modo que no se note nlngun 
ruldo. 


1SENSACIONAL! PERO SI SUBO EL VOLUMEN? 
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Aun asi, claro que en ese caso escucharas un leve sonido. 

PERO IMAGINATE NO SENTIR LA DI5KETTERA, Nl LAS TECLAS... 

iUn momento! Este POKE no tiene ningun efecto sobre las teclas y tampoco 
sobre la instruccibn SOUND. 

NO PODRIA SER CIERTO TANTA MARAVILLA. MEJOR QUE SUENE TODO. 

Para eso, Paces un POKE 65 con cualquier valor distlnto de cero. 

No te he preguntado 6que modelo es tu Atari? 

YO TENGO EL 600XL Y EN EL COLEGIO USAMOS UN 800XL, SON BIEN PARECIDOS. 

Asi es. El Atari 600XL y el 800XL usan el Sistema Operativo XL, que tiene 
considerable poder y flexibilidad. 

<LY QUE SIGNIFICA ESO? 

En pocas palabras, que tienes muchos mas POKE'S para probar. Recuerda, eso 
si, que ninguno de estos POKES funcionara en los computadores Atari 400 y 
800 corrientes. ( No pertenecientes a la linea XL). 

A VER, CUALES SON ESOS NUEVOS POKE 

El POKE mas novedoso, permite un movimiento de lineas (scrolling) en modo 
grbf ico 0. 

Simplemente ingresa poke 622,255 : graphics 0 
ME TINCA QUE PASA MUY RAPIDO. LE VOY A AGRE6AR: 

FOR I * 1 TO 1000 : PRINT I : NEXT I 

PARAFIJARME BIEN. 

A diferencia del movimiento normal, que mueve una linea de texto a la vez, el 
scrolling va moviendo los caracteres en forma mas suave. 

UN AMIGO MIO LO HIZO EL OTRO DIA iES BIEN BONITO EL EFECTO! CLARO QUE 
DESPUES ME IBA A MOSTRAR EL PROGRAMA Y TUVO PROBLEMAS CON EL EQUIPO. 
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Lo que pasa, es que este movlmlento afecta algunos programas. Para 
Inhabllitarlo, escribe POKE 622,0 : GRAPHICS 0 

6SOLO SIRVE CON MODO GRAFICO 0? 

SI, as! es. 

Los modelos Atari XL, tlenen todos una tecla de ayuda (HELP). Aunque no la 
usa nl el slstema operatlvo nl el Basic, puedes leer esta tecla en tus proplos 
programas y actuar sobre el la. 

VEAMOS, VEAMOS. ESTO SE PONE INTERESANTE. 

Una vez que se preslona la tecla HELP, la locallzaclon 732 guarda un 17 y 
continuara con este valor hasta que hagas un POKE 732,0. Debes verlflcar 
que la locallzaclon 732 tenga un valor dlstlnto de 0, y luego Paces POKE 
732,0 una vez que has actuado sobre la tecla. 

SI se preslona SHIFT junto con HELP, la locallzacldn 732 tendra un 81, y un 
145, lndlca que se ha preslonado CTRL-HELP. 

DIME UNA COSA. EN ESTOS MODELOS QUE SON MAS AVANZADOS ZSE PUEDE 

SUPRIMIR EL RUIDO DE LAS TECLAS? ALGUNAS PERSONAS LO ENCUENTRAN 
UTIL PARA LA FAMOSA "DIGITACION AL TACTO", PERO VO, FRANCAMENTE, LO 
ENCUENTRO ABURRIDOR. 

En realldad, en los modelos 600 y 800, la unlca forma es cortando los 
alambres que van al parlante, pero con los modelos XL puedes hacerlo. 
Slmplemente, con POKE 731,255. Un valor 0 te permlte segulr escuchando el 
click de las teclas. 

Otra cosa Interesante es la poslbllIdad de presionar una tecla y que esta se 
replta. Puedes camblar el lapso de tlempo que transcurre entre una y otra 
letra. 

ZQUE ES ESO POR FAVOR? 

Exlsten dos factores en la repetlclon de las teclas, cuando preslonas una 
tecla, no quleres que se replta en forma Instantdnea. 


SI, AS! ES. 
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Por eso, el Sistema Operatlvo espera 4/5 de segundo antes de comenzar a 
repetir; y una vez que comienza la repeticion, el otro factor de tiempo es la 
velocldad con la que la tecla se repite, que es alrededor de 10 veces por 
segundo. 

En el sistema operatlvo, estos tiempos de espera se expresan en multiplos de 
1/60 por segundo. 1 valor de 60 es un segundo completo, 30 es medio 
segundo, y asi sucesivamente. 

AH, LO QUE TU ME QUERI AS DECIR ES QUE SE PUEDEN CAMBIAR ESOS LAPSOS DE 
ESPERA. 

Correcto. Para cambiar el tiempo, antes que la tecla se empiece a repetir, se 
usa POKE 729, y para especificar el tiempo entre repeticiones POKE 730. 

Y CUALES SON LOS VALORES ESTANDAR. 

Para el 729, un 48 y para el 730 un 6. 

iVEAMOS UN PROGRAMA! iME ENCANTAN LOS PROGRAMAS! iQUE TE CUESTA! 

Est£ bien, esta bien. Haremos un programa bien completo, que te hara facil 
mirar dentro de la memoria de tu Atari. Tambien podras cambiar la memoria y 
hasta convertir numeros decimales, hexadecimales y binarios. 

Pero antes, es importante que aclaremos algunos conceptos: 

- el contenido de todas las direcciones de memoria, esta formado de un 
byte que corresponde a... 

18 BITS! 

Correcto. Estos 8 bits o digitos binarios, sblo pueden contener numeros 
binarios. 

SI, SOLO l's y O's ( Unos y ceros). 

Y el 1 indica que el bit esta "encendido" (ON) y el 0 que el bit esta "apagado" 
(OFF). Los bits se numeran del 0 al 7, de derecha a izquierda. 

Tu Atari sblo puede entender lenguaje binario. 
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6Y CON LOS CARTRIDGES? 

Cuando insertas un cartridge de lenguaje en tu equipo, le estas proporcionando 
al Atari un interprete que te permite comunicarte con el, a traves de un 
lenguaje como el BASIC, en alguna forma util y significativa. 

iYA, VAMOS AL PROGRAMA! 

Mas adelante, encontraras el listado del programa que te mencione. Escribelo 
y guarda una copia antes de usarlo. 

Cuando ejecutas el programa, te aparecera un menu con nueve opciones. 
6NUEVE? iQUE HARTAS! 

Asi es. La opcion 1 te permite examinar cualquier localizacion de memoria y 
ver su contenido en hexadecimal, decimal y Pinario. 

La opcibn 2 te permite cambiar la memoria al usar esta opcion. Si haces un 
POKE de un numero equivocado en una localizacion equivocada, corres el 
riesgo de echar a perder tu sistema. 

iHUY, QUE SUSTO! PERO HABRA ALGUNA SOLUCION SI ME EQUIVOCO. 

Si, tendras que apagar y encender el equipo para recobrar el control. 

A VER, DAME EJEMPLOS DE LAS LOCALIZACIONES DONDE PUEDA HACER 
CAMBIOS. 

Algunos lugares interesantes, donde hacer cambios, son las localizaciones 
53760-53768 (registros de sonido), 53266-53274 (los registros de color 
para los juegos con graficos), y 53248-53255 (la posicibn de los registros 
grdficos para los juegos). 

Puede que aparezcan extranas cosas en la pantalla cuando pruebes con estos 
registros, pero presionando SYSTEM RESET te sacara de cualquier lio en el 
que te hayas metido. 

BUENO, Y QUE PASA CON EL RESTO DE LAS OPCIONES. 
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Las opctones 3 a 8, son rutinas de conversion. Oberva que si est£s ingresando 
un numero hexadecimal para convertir, siempre debes ingresar dos digitos, 
aunque el primero sea un 0. 

6Y SI SE ME OLVIDA? 


Tendras una respuesta erronea. 

La opcion 9, te permite poner un Programa en lenguaje de maquina en la 
memoria. 


Puedes hacerlo en forma hexadecimal o decimal y puedes especificar la 
direccion de comienzo (1536 es generalmente un buen punto de comienzo para 
programas cortos en lenguaje de maquina). 

Debes ingresar las instrucciones una a una. Una vez mas, se muy cuidadosos 
al escribir las instrucciones, un error y ... 


iPIERDO EL CONTROL DE Ml ATARI! SI, LO TENGO BIEN PRESENTE. 

Cuando termines de ingresar la Ultima instruccion, presiona RETURN. El 
programa te preguntara “<LES LA ULTIMA INSTRUCCION?" para asegurarte si 
haz presionado la tecla RETURN por error Si respondes con una ”N", te 
devolvera a la rutina permitiendote ingresar mas instrucciones. Sin embargo, 
una "S” hara que el programa te pregunte si quieres ejecutar el programa que 
ingresaste. En ese punto, una ”N" te devolvera al Menu Principal 


PROGRAMA PARA ENTENDER PEEK, v POKE 


0 REM SAVE “D:PEEKPOKE" 

5 DIMA$(2),AD$( 1 ),B$(4),C$(5),RESP$( 1 ),BIN$(8),M0D0$(3),INST$(6) ,TD(2), 
N$(8)JITUL0$(20),LINEA$(22),N0MBRE$ (22) 

6 MENU=600:CLICK=6000:B$='0000“ 

? GOTO 5000 

39 REM SUBRUTINA DE CONVERSION DE DECIMAL A HEXADECIMAL 

40 N»PEEK(DIRECCION):N 1 =PEEK(DIRECCION) 

60 1=2.08 

70 TEMP=N 

71 N=INT(N/ 16):TEMP=TEMP-N* 16 

72 IF TEMP< 10 THEN A$(I,I)=STR$(TEMP):60T0 90 
80 A$(I,IKHR$(TEMP-10+ASC(“A“)) 

90 IF NoOTHEN M-t:60T0 70 

91 IF M=3 OR M=8 THEN ? “HEX=“;A$(1.2):A$=“U“:B$=“ “:C$=“ “:RETURN 

95 IF M>4 THEN RETURN 
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100 REM SUBRUTINA DE CONVERSION DE HEXADECIMAL A BINARIO. 

110 IF Al(l,IKl,r OR A$d.1XO* THEN B$=“0000“ 

120 IF A$(1.1K1‘ 

130 IF A$( 1,1X2’ 

140 IF A$(1,1X3* 

150 IF A$(1,1X4“ 

160 IF A$(1,1X5“ 

170 IF A$( 1,1X6“ 

180 IF A|(l, 1X7" 

190 IF A|(1,1X8“ 

200 IF A|(1,1X9“ 

210 IF AK1.1KA* 

220 IF A|( 1,1 XB“ 

230 IF A|(1,1XC“ 

240 IF A|d,1XD“ 

250 IF A|(1,1XE" 

260 IF A|(1,1XF“ 

270 IF AK2.2X0" 

280 IF A|(2,2X1“ 

290 IF A|(2,2X"2“ 

300 IF A|(2,2X3‘ 

310 IF A|(2.2X4“ 

320 IF A$(2,2X5‘ 

330 IF AK2.2X6' 

340 IF A|(2,2X7‘ 

350 IF A$(2,2X8' 

360 IF A|(2.2>“9“ 

370 IF AK2.2KA' 

380 IF A$(2,2XB‘ 

390 IF A|(2,2)»“C‘ 

400 IF A$(2,2XD* 

410 IF A|(2,2XE“ 

420 IF A$(2,2XF" 

421 IF M-4 OR M=7 THEN ? “BINARIO=";B|;C|:A|=”U“:B|»“ “:C|=" ":RETURN 

422 ?“ HEX:“;A|(1,2):? "DECIMAL:“;N1:? “BINARIO: ";B$:C$:? “PEEK("; 

DIRECCION;'X“;PEEK(DIRECCION) 

440 IFM-1 OR M-2 THEN A$="l,}“:B$ = “ “;C$=" “:RETURN 

450 IF M-3 THEN ? “HEX=”;A$(I,2):? :A$="{,}“:RETURN 

460 IF M=4 THEN ? “BINAR10=";B$;C$ :B$=“ ":C$=" “:RETURN 

499 REM SUBRUTINA DE CONVERSION DE BINARIO A HEXADECIMAL 

500 TRAP MENU 

501 B7-VAL(BIN$( 1,1 )):B6=VAL(BIN$(2,2)):B5=VAL(BIN$(3,3)):B4=VAL(BIN$ (4,4)) 

505 IF BIN$=“00000000“ THEN PKR-O: 60T0 526 

510 B3-VAL(BIN$(5,5)):B2-VAL(BIN$(6,6)):B 1 »VAL(BIN$ (7,7)):BO=VAL (BIN$(8,8)) 

520 PKRHNT(B7»2‘7+B6»2‘6+B5»2*5+B4» 16+B3*8+B2»4+B1*2+B0) 

525 IF B7 AND NOT B6 AND NOT B5 AND NOT B4 AND NOT B3 AND NOT B2 AND NOT BI AND 
NOT BO THEN PKR-PKR-1 

526 IF M=6 THEN ? “DECIMAL«“;PKR:RETURN 

527 IF M=8 THEN RETURN 

530 POKE D!RECCION,PKR:RETURN 

599 REM MENU PRINCIPAL 

600 ? CHR$(125):P0KE 752,1 POSITION 16,4:? “MENU“POSITION 16,5:? “-“:? 


THEN 

B$-“ 

0001“ 

THEN 

B$-“ 

0010“ 

THEN 

B$-“ 

0011“ 

THEN 

B*=“ 

0100“ 

THEN 

B$-“ 

0101’ 

THEN 

B$=“ 

0110“ 

THEN 

B$=“ 

0111“ 

THEN 

B$=“ 

1000" 

THEN 

B$=“ 

1001" 

THEN 

B$=‘ 

'1010" 

THEN 

B$=" 

1011“ 

THEN 

B$=“ 

1100“ 

THEN 

B$=“ 

1101" 

THEN 

B$=“ 

1110“ 

THEN 

B$=“ 

1111“ 

THEN 

C$=" 

0000“ 

THEN 

C$= 

“0001" 

THEN 

c$= 

“0010“ 

THEN 

c$= 

"0011" 

THEN 

c$= 

“0100" 

THEN 

c$= 

“0101“ 

THEN 

c$= 

“0110“ 

THEN 

c$= 

“0111“ 

THEN 

c$= 

“1000“ 

THEN 

c$= 

"1001“ 

THEN 

ct- 

="1010“ 

THEN 

c$= 

”1011" 

THEN 

c$= 

“1100" 

THEN 

c$= 

“1101" 

THEN 

c$= 

“1110" 

THEN 

c$= 

"1111“ 
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610 POSITION 6,8:? “1 REVISAR C0NT.DE MEMORIA" POSITION 6,9:? “2 CAMBIAR CONT.DE MEMORIA" 
612 POSITION 6,10:? '3 CONV. NRO. DECIMAL A HEXADEC.PPOSITION 6,11:? "4 CONV. NRO, DECIMAL 
A BINARIO" 

615 POSITION 6,12:? "5 CONV. NRO. HEXADEC. A DECIMAL “POSITION 6,13:? "6 CONV. NRO. BINARIO A 
DECIMAL" 

616 POSITION 6,14:? “7 CONV. NRO. HEXADEC. A BINARIO"POSITION 6,15:? “8 CONV. NRO. BINARIO A 
HEXADEC." 

617 POSITION 6,16:? “9 IN6RESAR POKES SUCESIVOS" 

618 POSITION 5,17:? "10 TERMINA" 

620 TRAP MENU 

630 POSITION 6,22:? "ELIJA OPCION “;:INPUT M:? “}":0N M GOTO 
1000,1050,1100,1100,1200,1300, 1400,1500,1600,6010 

699 REM SUBRUTINA DE CONVERSION DE HEXADECIMAL A DECIMAL 

700 FOR 0=1 TO 2 

701 IF INST$(Q,QKO" THEN TD(QM) 

705 IF INST*(Q,QK 1" THEN TD(G)= 1 
710 IF INST$(Q.QK2" THEN TD(Q)=2 
715 IF INST*(Q,Q)=“3" THEN TD(Q)=3 
720 IF INST*(Q,QK4“ THEN TD(Q)=4 
725 IF INST*(Q,QK5“ THEN TD(Q)=5 
730 IF INST*(Q,QK6“ THEN TD(Q)=6 
735 IF INST*(Q,QK7“ THEN TD(Q)=7 
740 IF INST*(G,QK8“ THEN TD(Q)=8 
745 IF INST$(Q,QK9“ THEN TD(Q)=9 
750 IF INST*(Q,QKA" THEN TD(Q)=10 

755 IF INST*(Q,QKB“ THEN TD(Q)= 11 

756 IF INST$(Q,QKC" THEN TD(Q)=12 

757 IF INST*(Q,QKD" THEN TD(Q)=13 

758 IF INST*(Q,QKE" THEN TD(Q>14 

759 IF INST$(Q,QKF" THEN TD(Q)=I5 

760 NEXT Q:INST=TD(1)* I6+TD(2):IF M=5 THEN ? “DECIMAL=“;INST 
770 RETURN 

999 REM “ 1" REVISAR LOS CONTENIDOS DE MEMORIA 

1000 ? :? :?“ 6QUE DIRECCION QUIERES VER?":INPUT DIRECCI0N:60SUB 40: GOTO 1000 
1040 TRAP 40000 

1049 REM "2“ CAMBIAR LOS CONTENIDOS DE MEMORIA 

1050 ? :? "POR FAVOR INGRESA LA DIRECCION A LA CUAL DESEAS CAMBIAR EL CONTENIDO“;:INPUT 
DIRECCION 

1060 ? :? ‘AHORA INGRESA EL NUMERO EN BINARIO QUE DESEAS PONER EN EL REGISTRO(LOS 
BITS SE NUMERAN DE 7 A 0 DESDE LA I" 

1070 INPUT BIN*:GOSUB 500:? :? “PEEK(";DIRECCION;>“PEEK(DIRECCION):? :? .GOTO 1050 

1099 REM "3" Y "4" CONVIERTEN UN NUMERO DECIMAL A HEXADECIMAL 0 A BINARIO" 

1100 ? :? :? "INGRESA EL NUMERO QUE QUIERE CONVERTIR";:INPUT N:60SUB 60:60TO 1100 

1199 REM “5" CONVERTIR UN HEXADECIMAL A DECIMAL" 

1200 ? :? :? “INGRESA EL NUMERO QUE QUIERE C0NVERTIR(2 DIGITOS)";: INPUT INST*:IF 
LEN(INST*)>2 THEN ? T.GOTO 1200 

1210 60SUB 700:GOTO 1200 

1299 REM "6“ CONVERTIR UN NUMERO BINARIO A DECIMAL 

1300 ? :? :? "INGRESA EL NUMERO QUE QUIERES CONVERTIR";:INPUT BIN*: GOSUB 500:G0T0 1300 

1399 REM “7" CONVERTIR UN HEXADECIMAL A BINARIO 

1400 ? :? :? "INGRESA EL NUMERO QUE QUIERES C0NVERTIR(2 DIGITOS)";: INPUT A*:GOSUB 
110:60TO 1400 
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1499 REM "8" CONVERTIR UN BINARIO A HEXADECIMAL 

1500 ? :? :? “IN6RESA EL NUMERO OUE OUIERAS CONVERTIR”;:INPUT 6IN$: GOSUB 500:N=PKR:GOSUB 
60:60T0 1500 

1599 REM "9" IN6RESAR UNA SERIE DE POKES EN LOCALIZACIONES DE MEMORIAS SUCESIVAS 

1600 ? :? :? “IN6RESAR INSTRUCCIONES EN FORMA DECIMAL(D) 0 HEXADECIMAL(H)";:INPUT MODO$ 
1610 ?:? “CUAL ES LA DIRECCION INICIAL(EN DECIMAL, POR FAVOR)”;: INPUT 

DIRECC!ON:DIRECCION 1 “DIRECCION 
1620 IF MODO$( 1,1 )=“H” THEN HEX-1 
1625 IF M0D0$(1,1KD“ THEN HEX=0 
1630 ? :? “AHORA IN6RESA LAS INSTRUCCIONES UNA A UNA" 

1640 IF HEX THEN TRAP 1700:INPUT INST$:60SUB 700:G0T0 1660 
1650 TRAP 1700 :INPUT INST 

1660 POKE DIRECCION,INST:DIRECCION=D!RECCION+1 ;IF HEX THEN 1640 
1680 GOTO 1650 

1700 ? :? "ES LA ULTIMA INSTRUCCION?‘;:INPUT RESP$:IF RESP$(1,1)o“S“ THEN 1640 
1720 ? :? "DESEAS EJECUTAR EL PROGRAMA QUE INGRESASTE RECIEN”;: INPUT RESP$:IF 
RESP$( 1,1 )="S“ THEN 1750 
1740 GOTO MENU 

1750 TRAP MENU:X=USR(DIRECCI0N1) 

4999 REM ****** TITULO INICIAL.SETCOLOR-FONDO NEGRO LETRAS BLANCAS 

5000 SETCOLOR 2,0,0:SETCaOR 1,10,10:? CHR$(125):P0KE 752,1 :TITULO$= “JUEGA AL PEEK V 
P0KE“1INEA$-“PRESENTAD0 POR" 

5001 NOMBRE*“"EDICIONES COMPUGRAFICA" 

5370 LN-INT(LEN(TITUL0$)/2):F0R Z=1 TO LN:POSITION 17-Z.7:? 

TITULO$(LN-Z+1 ,LN+Z);“* “:GOSUB CLICK 
5400 NEXT Z:LN-INT(LEN(LINEA$)/2):F0R Z=1 TO LN:POSITION 17-Z.9 :? "*"; 

LINEA$(LN-Z+1 ,LN+Z);“*“:GOSUB CLICK 

5440 NEXT Z:LN=INT(LEN(N0MBRE$)/2):F0R Z=1 TOLN:POSITION 17-Z.11:?"*"; 

NOMBRE$(LN-Z+1 ,LN+Z); “»“:60SUB CLICK:NEXT Z 
5500 FOR ESPERA= 1 TO 500:NEXT ESPERA:60T0 MENU 
6000 FOR TICK=0 TO 3:P0KE 53279,0:NEXT TICK:RETURN 
6010 POKE 752,0GRAPHICS 0:END 
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CAPITllLQ. , .4 

USQ DE CASSETTERA Y DI5KETTERA 


AH! AQUI SI QUE TE VOY A COMER A PREGUNTAS HACE HARTO TIEMPO QUE 
TEN60 DUDAS SOBRE LAS CASSETTERAS Y DISKETTERAS 


cEn serio? No me lo habias dicho 


SE DICEN MUCHAS COS AS DEL ATARI, QUE PUEDE HACER ESTO Y LO OTRO PERO 
NO SE CUALES SON CIERTAS. POR EJEMPLO, 4 VECES HE TENIDO PROBLEMAS CON 
LOS ARCHIVOS QUE GRABO EN CASSETTES. ES TERRIBLE BUSCAR UN ARCHIVO 
EN UN CASSETTE A VECES SE TRANSFORMA EN UNA HAZANA 


No exaqeres Una forma facil de recordar es escnbir la descripcion del archive. 

V 

y su ubicacion en un papelito. 

Y SI SE TE PIERDE EL PAPELITO iSERIA TODO! Y NO ES DE LO MAS ENTRETENIDO 
CARGAR UN ARCHIVO TRAS OTRO HAST A LLEGAR AL APROPIADO 


Veras que los programas que vienen mas adeiante son fantasticos Los debes 
usar de la siguiente forma: 

- Comienza cargando un cassette y poniendo en 0 el contador 

- Avanza la cinta hasta que el contador sea 20. 

- Graba hasta seis archivos en la cinta, cuidando de anotar e! nombre (hasta 
16 caracteres), la ubicacion del comienzo del archivo y el comando que usaste 
para grabar ei archivo 


6Y QUE PASA DESPUES? 


Cuando estes listo, reoobma la cinta y ejecuta el Programa l Te preguntara el 
nombre que quieres ponerle al cassette 

2Y? 


Y debes responderle con un nombre de hasta 16 caracteres. El programa luego 
te preguntara por los nombres, localizaciones y comandos que usaste para 
grabar los 6 archivos 
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Y YO LE RESPONDO CON EL NOMBRE, EL VALOR QUE TENIA EL CONTADOR AL 
EMPEZAR CADA ARCHIVO Y LA PRIMERA LETRA DEL COMANDO QUE USE PARA 
6RABAR CADA ARCHIVO. 

ZComo? oAcaso conoces los programas? 

NO, PERO ES LO TIPICO. SI A Ml TAMBIEN SE ME OCURREN COSAS DE REPENTE. 
OYE .... ZY SI TENGO MENOS DE 6 ARCHIVOS? 

Si tienes memos de 6 archivos, responde al mensaje que te pide e! nombre del 
ultimo archive presionando dos veces ESC y luego RETURN. Asi el programs 
termina de preguntarte y almacena !o que se podria llamar "el archivo del 
sistema de cinta" en el cassette. 

SUPONGO QUE ESE ARCHIVO CONTIENE LA INFORMACION QUE RECIEN INGRESE. 

Asi es, toda la informacion necesaria para localizar y cargar todos los 
archivos queda grabada en forma segura en el mismo cassette. 

AHORA SIGAMOS CON EL PROGRAMA 2. 

El Programs 2 lee este archivo del sistema, escribe un menu en la pantalla y 
te pide que selecciones el numero del archivo que quieres cargar. 

Y NO ME DIGAS QUE CAR6A ESE ARCHIVO. 

No seas flojo, algo de trabajo para ti tambien. El programs te indica el numero 
del contador en el que encontraras el archivo. Avanza la cinta y simplemente 
presiona RETURN para cargar la cinta. 

ZY SI ME EQUIVOCO? 

El programs te da otra oportunidad para cargar el archivo. 

ME GUST ARIA QUE ME EXPLICARAS UN POCO MAS EN QUE CONSISTEN ESTOS 
PROGRAMAS. 

La clave de estos programas reside en entender el manejo de strings del Atari 
BASIC. 
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AH! ENTONCES NO TENDRE NINGUN PROBLEMA. YA, SIGAMOS. 

Como sabes, un string es una secuencla de 1 6 mas caracteres. En el Programa 
1, que encontraras mas adelante, la instruccion 40 es una instruccldn de 
dlmenslonamlento (DIM) define las variables tipo string que se usan en el 
programa. 

CBUF$ es el string que se pondra en el buffer del cassette y luego se escribe 
en la cinta. 

6QUE COSA ES ESE BUFFER DEL CASSETTE? 

Es un drea de memoria RAM desde la cual Atari graba a la cassettera. 

BUENO, 6Y EL PROGRAMA 1 USAMAS STRINGS? 

SI, varios mas. Los usa para guardar los inputs (ingresos) desde el teclado. 

TE REFIERES A LAS RESPUESTAS QUE UNO ESCRIBE EN EL TECLADO 6VERDAD? 

Asi es. Como los nombres de archivo, las localizaciones y comandos se 
ingresan a CBUFS uno tras otro. S se usa como una medida para guardar 
espacio. 

NO ME IMAGINO COMO VAN QUEDANDO TANTAS COSAS EN CBUF$. 

Para agregar caracteres a CBUFS, como ocurre en la linea 110, se usa la 
sigulente expresidn: 

/ 

CBUF$ (principio, fin) * TN$ 

6QUE ES PRINCIPIO Y FIN? 

principio y fin son las posiciones de inicio y termino en el string CBUFS. 

<LY TN$? 

TN$ contiene el string que tlene que ubicarse en CBUFS en las posiciones 
indicadas por principio y fin. 
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AH. YA ENTENDI. MANEJANDO LAS POSICIONES DE INICIO Y FIN DE LOS DATOS 
DENTRO DE CBUF$, SE LLENA EL STRING CON LOS DATOS, UNO CADA VEZ. 

Muy blen. Con esta expllcac!6n y tu Manual de Referenda del Atari seras capaz 
de descifrar el resto del programa, 

6DESCIFRAR? ESO SUENA COMO QUE EL PROGRAMA ES MUY DIFICIL. 


No, en absoluto. Ver^s lo fad I que es. Ah! antes que se me olvide, para 
apresurar la carga de estos programas, puedes hacerlos mas pequehos. 

Y AS! HAY MENOS QUE CARGAR. DIME, 6QUE PUEDO SUPRIMIR? 


Puedes suprimir las instrucciones REM, sustituir las variables por 
constantes, como se explica mas aba jo, poniendo dos lineas de cddigo en una 
sola, separadas por dos puntos y sustituyendo la palabra PRINT por un signo de 
interrogacion. (?). 

iLISTO! 6ME DAS EL PROGRAMA? 


PROGRAMA I 


0 REM SAVE "D:ARCHCAS 

10 REM * "PROGRAMA QUE CREA UN ARCHIV0 DE DIRECTORIO 
15 REM ""EN CASSETTE 
20 ?CHR*(12S) 

30 REM ""DEFINICION DE VARIABLES V CONSTANTES 

40 DIM CBUF|(128),FN$(12),CT$(3)JN$( 16),SM$(1):S=16 

50 REM * * COMPLETA EL BUFFER DEL CASSETTE CON BLANCOS 

60 FOR N=1 TO 128:CBUF*(N,NK “:NEXT N 

70 REM * * IN6RES0 DEL NOMBRE DEL VOLUMEN DEL CASSETTE 

80 ? “INGRESA EL NOMBRE DEL CASSETTECMAXIMO 16 CARACTERES)" 

90 INPUT TNI 

100 REM » "PONE EL NOMBRE DEL CASSETTE EN EL BUFFER 
110 CBUF*(1,S)«TN* 

120 REM * »INGRESA INFORMACION DE HASTA 6 ARCHIVOS 
130 FOR N-1 TO 6 

140 ? “INGRESE NOMBRE DEL ARCHIVO “;N 

150 INPUT FN* 

160 IF FN$(1 ( 1M:HR$(27) THEN GOTO 270;REM ""CUANDO SE PRESIONA LA TECLA ESCAPE SE 
TERMINA EL IN6RES0 
180 CBUF $(N " S+1 ,N " S+13>FN | 

190 ? LECTURA DEL CONTADOR PARA ESTE ARCHIV0(3 DIGITOS)” 

200 INPUT CT|:CBUF|(N"S+ 13,N"S+15) - CT$ 

210 REM ""FORMA DE ALMACENAR EL ARCHIVO 
220 ? "QUE COMANDO SE USO PARA GRABAR?“ 
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230 

240 

250 

260 

270 

280 

290 

300 

310 

320 


PROGRAMA 2 

10 REM * "DESPLIEGA UN MENU PARA LEER LOS ARCHIVOS 
20 ? T 

30 REM * * DEFINICION DE VARIABLES Y CONSTANTES 
40 DIM CBUF$(128), FN$(12), CT$(3), TN$(16), SM$(1):S=16 
50 REM »»OPEN CASSETTE 
60 ? “PRESIONA PLAY Y LUE60 RETURN" 

70 OPEN # 1,4,0,“C:" 

80 REM * *LLENA EL BUFFER DEL CASSETTE CON BLANCOS 

90 FOR N=1 TO 128:CBUF$(N,N)="";NEXT N;REM **LEE E IMPRIME EN LA PANTALLA EL NOMBRE 
DEL CASSETTE 

100 ? CHR$( 125);“LEYEND0 EL DIRECTORIO DEL CASSETTE" 

110 INPUT # 1;CBUF$:? T 
120 ? CBUF$( 1,15): ? 

130 REM * * IMPRIME EL MENU DE ARCHIVOS EN LA PANTALLA 

140 FOR N=1 TO 6 

150 FN$=CBUF$(N*S+1 ,N*S+13) 

160 CT$=CBUF$(N*S+ 13,N*S+ 15) 

170 SM$=CBUF$(N*S+S,N*S+S.) 

180 ? N;“ “;FN$;“ CT$;" “;SM$ 

190 ? 

200 NEXT N 

210 REM * * PRE6UNTA POR EL PROGRAMA QUE SE QUIERE CARGAR 
220 ? :? "INGRESA EL NUMERO DEL PROGRAMA QUE QUIERES EJECUTAR “ 

230 INPUT N 

240 FN$=CBUF$(N*S+1,N*S+13) 

250 CT*=CBUF*(N»S+13,N*S+I5) 

260 ? "AVANZA LA CINTA HASTA EL ";CT$ 

270 TRAP 350 

280 REM * *DECIDE CON QUE COMANDO CARGARLO 
290 IF CBUF$(N*S+S.N*S+SKC" THEN 330 
300 IF CBUF$(N*S+S,N*S+S)”“E" THEN 340 
310 REM * * CARGA EL PROGRAMA 
320 LOAD "C:":? "PRESIONA RETURN " 

330 CLOAD :? "PRESIONA RETURN" 

340 ENTER “C:“ 

350 ? “RETROCEDE LA CINTA AL “;CT$; 

360 GOTO 290 


? “CSAVE/SAVE C/LIST C-(C,S,L)" 

INPUT SM$ 

CBUF$(N*S+S,N*S+S)=SM$ 

NEXT N 

REM **6RABA EL ARCHIVO DIRECTORIO EN EL CASSETTE 
? "PRESIONA PLAY/RECORD-RETURN ” 

OPEN # 1,8.0, "C:“ 

? "GRABANDO EL DIRECTORIO " 

? # 1 ;CBUF $ 

CLOSE * 1 
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11 e gustaron? 

CLARO QUE SI. ES MUY INTERESANTE ESTA MATERIA. 

Ahora veremos algo parecldo, slgulendo la misma Idea de ahorrar el tiempo 
que se pterde buscando archlvos o programas en diskettes y cassettes. 

SI, A VECES UNO NO SABE EN QUE LU6AR GRABO UN PROGRAMA Y HAY QUE 
EMPEZAR A PROBAR CON TODOS. 

En efecto, para muchos usuarlos de computadores, una de las tareas que mas 
tiempo consume es buscar entre los diskettes en cual esta un programa 
especlflco. Veremos un programa que te da una poslble solucldn. 

.HUM 6SERA ALGO COMO UN INDICE? 

Exactol. <LAcaso no serla fantastlco tener un Indice de todos tus diskettes, 
almacenado en otro diskette? 

ISENSACIONAL! DE ESA FORMA NUNCA HABRIA QUE E5TAR CAMBIANDO DISCOS. 

Y con algunas pocas facllldades, como capacldad de busqueda e Impresldn, 
tendrlas un utllltarlo verdaderamente "util". 

BUENO, PERO EN REALIDAD HAY HARTOS SISTEMAS DE CATALOGACION DE 
DISCOS. 

El problema de la mayorla de el los es que hacen mucho mas de lo que 
realmente se neceslta y eso hace que sean mas compllcados. 

0 SEA QUE ES UN PROGRAMA BIEN SIMPLE ENTONCES. 

El programa "Utllltarlo de Catalogacldn de Discos" (UCD) es slmplemente un 
dlrectorlo maslvo, crea archlvos separados de todos los dlrectorlos de tus 
discos, en un disco destgnado para el lo. 

W QUE SIGNIFICA ESO? 

Esto slgnlflea que puedes obtener un dlrectorlo de cualquler disco sin tener 
que recurrlr al DOS y camblar diskettes. 
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SI. EN REALIDAD ES UTIL 

Otras tres caracterlsticas hacen que UCD sea aun mas Gtil. Primero, tlenes la 
opcibn de hacer un dlsco-dlrectorlo de todos tus discos, uno solo, o todos los 
discos en un clerto rango. Segundo, UCD utlllza totalmente lo que se conoce 
como "Comodln de Atari" (Atari’s wild card) 

6C0M0DIN? 6C0M0 EN LOS NAIPES? 

En concepto, si. Se trata de un simbolo que puedes poner en el nombre de un 
programa y te permlte ver todos los programas que tienen el string 
especlficado en su nombre. 

COMO QUE TE ENREDASTE UN POCO CON LA EXPLICACION. 

Mas faci 1 un ejemplo. Si quleres ver todos los archlvos que tengan la 
terminacibn. LST escribes *.LST y te muestra la lista de programas que tienen 
esa terminacibn. 

ME HUB I ERAS DICHO QUE SE TRATABA DEL ASTERISCO Y LISTO. 

Bueno, el asteristlco es el "comodln” mas conocido pero tu puedes eleglr uno 
particular cuando uses UCD. 

IQUE SIMPATICO! 

Una especificacion de archivo no tiene porque tener un comodln. Si tu sabes 
exactamente que programa o archivo estas buscando, escribe su nombre tal 
cual y UCD identiflca todos los discos que tienen ese nombre. 

YA. CUAL ES LA TERCERA CARACTERISTICA? 

Para aquellos que poseen Impresora, UCD tamblen entrega una "copla dura" del 
Indice de los dlrectorlos. 

HAY QUE SER BIEN ORDENADO CON LOS DISCOS PARA QUE RESULTE ESTE 
SISTEMA. 

Asl es. Primero debes numerar todos tus discos comenzando con el 1 y poner 
este numero en su etlqueta. 
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YA, LO VOY A HACER EN SEGUIDA 

Luego ejecuta el programs. Lo prlmero que te plde es que elljas el slmbolo 
"comodln". SI presionas RETURN, UCD usara automatlcamente el asterlsco 
como comodln. 

BUENO, Y CUANDO EMPIEZO A CATALOGAR LOS DISCOS? 

En este punto, estas llsto para hacerlo. Corre el UCD y escribe "C" para 
catalogar. El programa te pregunta que disco quieres catalogar. 

0 

A LO QUE DEBO RESPONDER CON EL NUMERO DEL DISKETTE. 

luego RETURN y tienes que insertar el diskette correspondlente y volver a 
presionar RETURN. UCD leera el directorio del disco. Luego inserta el disco de 
datos. 

ZCUAL ES ESE? 

Es el disco con el programa UCD y todos los archivos creados con el UCD. 

Bueno, ibamos en que insertabas este disco, luego RETURN y UCD grabara el 
directorio del disco que habia leido antes. Lo graba como un nuevo archivo que 
se llamara" DISCO n" donde n corresponde al numero del diskette que pusiste. 

0 SEA QUE SI PONGO EL DISKETTE N* 1 GRABA UN ARCHIVO QUE SE LLAMARA 
DISCOI. 

Por eso es que tienes que asegurarte de escribir el numero correcto cuando 
est£s catalogando. 

Tienes que seguir este mismo procedimiento para todos tus diskettes. 

Y DESPUES SUPONGO QUE PUEDO VER UN DIRECTORIO DE TODOS LOS 
DIRECTORIOS. 

Para obtener un directorio completo, escribe "D" y te aparecer^n varias 
opciones: 

- si tienes una impresora y quieres un listado de tus directorios, escribe S 
cuando te aparezca la pregunta si es que quieres un listado. 
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SI NO TENGO IMPRESORA, LA UNICA OPCION QUE ME QUEDA ES UNA N ^VERDAD? 


SI, pero tlenes otras opclones. Por ejemplo, tlenes la opc!6n de buscar dentro 
de tin rango determ Inado de discos. Escribe S si quleres un rango, 

A VER SI TE ENTIENDO. SI ESCRIBO S Y LUEGO 3,8 EL PROGRAMA BUSCARA 
ENTRE LOS DIRECTORIOS 3, 4, 5, 6, 7 Y 8. 

Exacto. Y si quleres que UCD comlence con el disco 1 y continue hasta que no 
encuentre mbs archlvos, slmplemente preslona RETURN, 


£HAY MAS OPCIONES? 


Claro. Tamblen puedes especlflcar el nombre del archlvo que estbs buscando. 


AH! LO PODRIA HACER USANDO EL COMODIN QUE VIMOS RECIEN. 


Y UCD te responde mostrando cada numero del disco seguldo de todos los 
archlvos que cumplen con la especiflcaclbn que tu dlste. 


6Y AL FINAL? 


Cuando UCD ha buscado a traves de todos los dlrectorlos, o ha termlnado en un 
rango especlflco, muestra el numero de archlvos que ha encontrado y te 
devuelve a la pantalla principal. Aqul tlenes el programa, 


UTILITARIO DE CATALOGACION DE DISKETTES. (UCD). 


O REM SAVE “D:UTCATDIS“ 

10 GRAPHICS 0:SETC0L0R 2,12,4:SETC0L0R 1,0,15 
12 DIM D( 1000),ESPEC$( 17),F$( 17),FN$( 15) 

14 -DSK-1 ~ 

15 OPEN *1,4,0,“K:“ 

17 ? “UTILIT.PARA CATALOGACION DE DISKETTES" 

18 ? “SIMBOLO C0M00IN?“:6ET *1,C0:IF CO-155 THEN CO-ASCC*") 

19 FOR 1-1 TO 38:? CHR$(CO);:NEXT I 

20 CLOSE *2:? CHR$(125):? “UTIL. DE CATALOGACION DE DISKETTESIUCD1 *:? :? “IC1 
CATAL06AR DISKETTE":? 

22 ? “ID1 DIRECTORS COMPLETO" 

40 POSITION 2,22:? “TU ELECCION->‘;:GET *1,K 

45 IF CHR$(K) <>"C“ AND CHR$(K) <>“D“ THEN ? CHR$(125);CHR$(253);“D o C“:60T0 40 
50 IF CHR$0O-“C“ THEN 3000 
60 REM ** FUNCION DE DIRECTORIO 

65 ? CHR$( 125);CHR$(29);"lUCD 1DIRECTORIO" :FLS-0 :SETCOLOR 2,15,4 
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70 ? “INSERTE DISKETTE D£ DATOS. <RETURN>':GET * I ,K :60T0 80 

75 ? “SALIDA POR IMPRESORA(S/N) “;:GET *1,K:IF CHR$(KKS“ THEN FLA6-I:60T0 80 

77 FLAG-0 

80 ? "QUIERES ESPECIFICAR RAN60(S/N)“:6ET *1,K:IF CHR$(KKS“ THEN ? “RAN60“;:INPUT 

PPI0,FIN:60T0 100 
90 PPIO-1 :FIN-99999 
100 ? ‘ARCHIVO DESEADO";:INPUT ESPEC$ 

105 IF ESPECK ‘ THEN ESPEC*(1KHR$(C0)£SPEC$(2K.':ESPEC*(3)- CHR$(CO) 

110 F$-ESPEC$:ESP£C$(1,2K ESPEC$(3)-F$:Ft-“ “ 

120 FOR DSK-PPIO TO FIN 

130 FN$-“D:DISC0“:FN$(7)-STR$(DSK) 

140 TRAP 6O5:0PEN *2,4,0,FN$:? “DISCO “;DSK:TRAP 605:IF FLAG THEN LPRINT “DISCO “;DSK 
150 INPUT # 2; F$:l-3 

152 REM » * BUSQUEDA Y COMPARACION DE ARCHIVOS 
155 IF F$(l,l) <> “ ” AND F$(l,l) <> THEN 600 
160 IF ASC(ESPEC$(I,I))» CO THEN 1-1+1:60T0 500 
170 IF ESPEC$(I,I)-V THEN 500 
180 IF ESPEC$(I,I) <> F$(l,l) THEN 150 
200 IF l<LEN(ESPEC$) THEN l«l+1:60T0 160 
210 FLS-FLS+1:? Ft :IF FLAG THEN LPRINT F$ 

215 GOTO 150 

500 1-1+1 :L-LEN(F$)-6 

510 IF ASC(ESPECt(l.l)KO THEN 210 

520 IF ESPECt(U) <>F$(L,L) THEN 150 

530 IF l<LEN(ESPECt) THEN 1-1+1 :L-L+1 :G0 TO 510 

540 FLS-FLS+1:? F$:IF FLAG THEN LPRINT F$ 

542 GOT0150 

600 ? F$:CLOSE # 2:NEXT DSK 

605 ? :? FLS;“ ARCHIVOCS) ENCONTRADO(S) “:IF FLAG THEN LPRINT 1PRINT FLS;“ ARCHIVOtS) 

ENCONTRADOCS) " 

606 FOR P-1 TO 500:NEXT P 
610 GOTO 20 

2999 REM » »FUNCION DE CATALOGACION 

3000 ? CHR$(125):S£TCaOR 2,1,4:SETCaOR 1,0,15:? “CATALOGOIUCD]":? :? “NRO DEL DISCO 
A CATALOGAR“;:INPUT DSK 

3015 FNt-“D:DISC0“:FNt(7)-STRt(DSK) 

3020 ? :? “INSERTA DISCO “;DSK;:? “ <RETURN> “;:GET # 1,A 

3045 OPEN *2,6,0, “D:*.“":l-0 

3050 TRAP 3500:GET *2,K 

3052 D(IX:I-I+1:60T0 3050 

3500 D(l+1)-0:a0SE *2:PRINT :? “INSERTA DISKETTE DE DATOS-LUEGO RETURN*:GET *1,A:0PEN 

*2,8,0,FN$:I-0 

3505 TRAP 3600.'PRINT CHR$(D(I));:PUT *2,D(I):I-I+1 
3510 IF D(l)-0 THEN 3600 
3515 GOTO 3505 

3600 ? “CATALOGACION FINALIZADA“:CLOSE *2:60T0 20 

ME ENCANTO ESTE PROGRAMA. LO ENCUENTRO SUPER UTIL. EN REAL I DAD ES UNA 
GRAN PERDIDA DE TIEMPO ESTAR PONIENDO UN DISKETTE TRAS OTRO PARA VER 
SU DIRECTORIO. LO UNICO MALO ES QUE EL DIRECTORIO NO TE MUESTRA MUCHA 
INFORMACION, PERO IBUENOI NO HAY QUE SER TAN EXIGENTS. 
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£TAN COMPLICADO PARA UN PROBLEMA QUE PARECE TAN SIMPLE?. 

Lo que pasa es que adembs te solucionarci muchos otros problemas. Revlsemos 
algunos conceptos del DOS prlmero. 

Como debes saber, el DOS de Atari accesa los discos por sectores: uno a la 
vez. Sin embargo, esto tambibn puede hacerse en forma independiente, sin 
usar DOS, modificando clertos punteros en la seccibn de memoria conoclda 
como "bloque de control de disco” (DCB, DISK CONTROL BLOCK) y llamando al 
Sistema Operativo (OS, OPERATING SYSTEM), para que haga el resto del 
trabajo. 

PERO. 

Lo siento, no hay preguntas entre medio. Deja explicarte todo bien y despues 
me preguntas lo que quieras. 6Ya?. 

.SI NO HAY OTRA ALTERNATIVA. 

Bueno, DCB y OS no necesitan que estb cargado el DOS en este mbtodo. Fijate 
despubs en las lineas 8010 y 8100 del programa. 

Esa es la subrutina para accesar directamente el disco. Ahora te explico como 
funciona el programa. 

Prlmero necesitamos definir un brea "buffer” para que guarde el contenido del 
sector del disco que leemos o para que guarde alguna informacion que deberb 
grabarse en el disco <i,estb claro?. 

HASTA AQUI VAMOS BIEN. ENTIENDO QUE TENGO QUE RESERVAR UN AREA 
AUXILIAR EN LA MEMORIA QUE GUARD A LO QUE SE LEYO EN EL DISKETTE 0 LO 
QUE TENGO QUE ESCRIBIR EN EL. 

Correcto. Este buffer deberb tener 128 bytes de longitud ya que cada sector 
del diskette tiene 128 bytes. Para esto usamos BUF$ en el programa. 

Como te dije antes, la linea 8010 identifica el comienzo del DCB que ocupa las 
direcciones de memoria 768-779. Haciendo un POKE con valor 1 al segundo 
byte (BLK + 1) se especifica acceso al drive 1. La variable FUN de la linea 
8020 guarda el numero de la funcibn para la rutina de acceso al disco; 82 
significa un comando de lectura del sector y 87 es un comando de escritura al 
disco. 

Para poder leer lo que tiene el area buffer, o bien escrlbir en esta area, la 
direccibn de este buffer debe ubicarse en BLK + 4 y BLK + 5 en formato "byte 
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menor/byte mayor" (lowbyte/highbyte). 


PERDONA QUE TE INTERRUMPA, PERO MEJOR ME EXPLICA5 ESO 0 SI NO NO 
ENTENDERE ABSOLUTAMENTE NADA DE AQUI EN ADELANTE. 

Lo anterior significa que BLK ♦ 5 contends la parte superior de la direccibn, 
el numero de veces que cabe 256 en la direccibn. Esto se expresa como INT 
(ADR (BUF$) /256. 

BLK + 4 contendrb la parte inferior de la direccion, el resto de la division por 
256, dada por: ADR(BUF$) - 256 (parte superior). Este formato de direccibn 
low byte / high byte es standard en el Atari y otros microcomputadores 
basados en el microprocesador 6502. 

Luego, el numero del sector que debe ser accesado debe expresarse en este 
mismo formato low/high y se ubica en BLK + 10 y BLK + 11. Los sectores se 
enumeran desde 1 a 720. Algunos de estos sectores se usan para el directorlo 
y otras cosas, por lo que el DOS mostrara solo 707 sectores disponibles en un 
diskette vaclo, aunque tu puedes accesar todos los sectores con este 
programa. 

IQUE FRESCURA LA DEL DOS! SE QUEDA CON 13 SECTORES EN CADA UNO DE MIS 
DISCOS. 

Bueno, ya es hora de llamar al Slstema Operativo. La subrutlna que escribe el 
contenido del buffer en un sector del disco especifico y que escribe el 
contenido del sector en el buffer se localiza en la direccion hexadecimal 
$E453 (decimal 58451). Para llamar a esta subrutina necesitas hacer un 
pequeno programita en lenguaje de maquina. La linea 8080 inicia este 
programa que las lineas 205 y 210 ponen en DSKINVS. Despues de volver, si 
hubo algun problema al leer o escriblr un sector, se coloca un cbdigo de error 
en BLK + 3, el valor 1 indlca que no hubo ningun error. La linea 8080 ademas 
pone este cbdigo en la variable NR para usarlo en las lineas 8086 y 8090. 

ITANTAS VARIABLES! ESPERO QUE NO SE ME CONFUNDAN. 

No te preocupes, despubs te dare una lista de todas las variables y su 
significado. Ahora que ya sabes como se lleva a efecto el acceso directo al 
disco, veamos el programa principal. Cuando hayas escrito el programa, 
grbbalo en un disco que tenga diferentes archivos del DOS, como el 
AUTORUN.SYS, el DOS.SYS, DUP.SYS, algun programa de LIST/ENTER y otros de 
SAVE/LOAD, que sera muy interesante revlsarlos. 

Cuando corras el programa te aparecerb un menu. Presiona el botbn SELECT y 
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si todo va bien, podras cambiar el fondo de la pantalla de azul a verde (o azul 
y azul oscuro, dependlendo de tu televisor). Cuando la pantalla estb verde (o 
azul oscuro) puedes imprlmir todo lo que aparece en el la, asumlendo que 
tlenes una Impresora conectada. En cualquler punto de la ejecuclbn del 
programa, puedes pasar del modo de impresibn al de no - Impresibn y vice 
versa. 

Selecclonemos una pantalla de no-lmpres16n por ahora. Las opclones son: 


1.- Revisar un sector 

2- Revisar un sector del directorio 

3- Rastreo sector por sector 
A- Revisar un bloque de sectores 

5. - flapa de utilizacion del disco 

6 . - Tabla de sectores utilizados 
7- Copiar un sector 

8 - Respaldar el director io 

9.- Proteger / desproteger sectores 

10 - Revisar la memoria. 


Escoge la opcion 2 y presiona RETURN. Esta opcibn te permite revisar el 
contenido de un sector en forma especial, el programa asume que estas 
buscando uno de los sectores entre el 361 y 368 y te mostrara los datos de 
acuerdo a esto. Cuando te pide el numero del sector escribe 361, para revisar 
el primer sector del directorio. Escucharbs un "beep" mientras se lee el sector 
y luego los bytes en el sector se despliegan en la pantalla como caracteres. 
Los sectores del directorio estan organlzados en grupos de 16 bytes y cada 
grupo contiene Informacibn de uno de los archivos que aparece en el directorio 
del DOS. DOS se refiere a los programas y archivos a traves de numeros, 
comenzando desde 0 y con un mbximo de 64 archivos. 

EL ULTIMO ARCH 1 VO TENDRIA ENTONCES EL NUMERO 63. iPOBRES ARCHIVOS! LOS 
TRATAN COMO A LOS PRESOS. 

La pantalla se divide en 8 llneas de 16 bytes cada una, asi cada directorio 
aparece en una linea separada. Fijate en el primer byte de un directorio tipico. 
Una B mayuscula indica un archivo normal listo para ser usado. De esta forma 
un primer byte igual a 66 (el valor ATASCI I de B) le indica al DOS que ese 
archivo esta bueno y operativo. Un archivo protegido tiene el bit 5 del primer 
byte en "ON" (valor 1). Si el bit 7 del primer byte esta en "ON" DOS considera 
este archivo eliminado del directorio. Ese espacio esta entonces disponible y 
sera re-escrito por el prbximo archivo que se grabe. Si se borrb un archivo con 
la opcibn D del DOS y no se han grabado nuevos archivos en el disco, el archivo 
puede recuperarse. 



80 


COMPU ATARI 


iFANTASTICO! NO TENIA IDEA QUE SE PODIA HACER ESO. ME SI GO ASOMBRANDO 
CON Ml ATARI. IES UNA MARAVILLAI ME DA RABIA ACORDARME DE TODOS LOS 
PROGRAM AS QUE HE BORRADO POR EQUIVOCACION Y CREIA PERDIDOS PARA 

SIEMPRE. DE HABER SAB I DO LOS HUBIESE RECUPERADO Y.IBUENOIYA APRENDI 

Y YA NO ME PASARA MAS. 

Ya que te Interes6 tanto esta parte, probemos con un ejemplo, a ver si 
realmente ingresaste el programa en forma correcta. Escribe algun programa 
tonto, como 10 REM y grbbalo en diskette. Recurre al DOS y lista el directorio. 
Ahora usa la opcibn D para eliminar el programa. Un nuevo directorio del disco 
te servira para veriflcar que tu programa no aparece. Vuelve al BASIC y carga 
el programa DESCUBRIDOR. Ejecutalo y elige la opcibn 2 nuevamente. Revisa el 
sector 361. Si tienes muchos archivos en el disco, puede que tengas que 
revisar mbs sectores, posiblemente hasta el 368, para ver el programa que 
borraste; presionando RETURN un par de veces puedes volver al menu principal 
para seleccionar el prbximo sector. Repite esto hasta que encuentres tu 
programa y verbs que aparece a pesar de que tu lo eiiminaste. 

Presiona RETURN una vez mbs para que te aparezca el mensaje "CAMBIOS EN EL 
SECTOR?”. 

Responde S, luego escribe C en el prbximo mensaje, de manera que puedas 
agregar bytes dentro del sector en forma de caracteres y no de numeros. 
Escribe 1 para el numero de caracteres que quieres cambiar. Determina cual 
es el primer byte del programa que eiiminaste para responder al siguiente 
mensaje. Este debe ser un corazbn invertido (CHR$( 128)) que indica el archivo 
eliminado. El numero del byte aparece al lado izquierdo de la pantalla. 

Escribe el numero del byte inicial. El programa te pedira el byte que quieres 
Insertar. escribe una B, luego S para corroborar que si quieres hacer el 
cambio. Escucharas un sonido en la dlskettera cuando se estb 
modificando el sector del disco y luego un "beep" cuando se vuelve a leer y a 
desplegar en la pantalla. Tendria que aparecer la B como el primer byte de tu 
programa, lo que indica que lo recuperaste. Para veriflcarlo trata de cargarlo 
o vuelve al DOS y mira un listado del directorio. 

(NO LO PUEDO CREERI ES MUCHO MAS SENCILLO DE LO QUE YO SUPONIA. 

Ah!, un detalle. Aunque ya puedes cargar y grabar tu programa, sus sectores no 
estan protegldos por el DOS. Esto slgnifica que si grabas un nuevo programa te 
puede quedar sobre el tuyo. Para protegerlo, grbbalo con un nombre nuevo y 
DOS marcarb sus sectores como si estuviesen en uso. 
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TENGO UNA IDEA! PERO NO, NO CREO QUE 5IRVA. 

Pero dtmela prlmero, ahl vemos. 

VO SE QUE SE PUEDE HACER, PERO NO SE 51 CON ESTE PROGRAIiA. ME HAN 
CONTADO Y LO HE VISTO EN ALGUNOS DISCOS, QUE UNO PUEDE DEJAR 
INVISIBLES ALGUNOS PROGRAMAS, 0 SEA, ESTAN EN EL DISCO PERO OTRA 
PERSONA NO LOS PUEDE VER EN EL DIRECTORIO. 

Por supuesto que slrve este programa. Es muy sencillo dejar Invisible un 
archlvo. 

Como puedes ver en el dlrectorio, el nombre de todos los archlvos tiene 2 
partes: el nombre proplamente tal y una extensldn. Esta extensldn no es mds 
que los caracteres ublcados en los tres ultimos espaclos dlsponlbles para el 
archlvo. Puedes cambiar los caracteres en el nombre de un archlvo con 
resultados muy Interesantes. 

iOTRO EJEMPLO! £YA? ASI ME QUEDA MUCHO MAS CLARO. 

Bueno, elige la opcion 2. Escoge N esta vez, para insertar numeros. Escribe 1 
para Insertar solo un numero. Usa nuevamente el programa "tonto" que usamos 
en el ejemplo anterior y elige uno de los bytes de su nombre para cambiar. 
Camblalo al valor 125, luego escribe S para modlficar e! sector. 

TORQUE 125? 

El valor ATASCI I 125 es el caracter para llmplar la pantalla (CLEAR SCREEN). 
SI vuelves al DOS y pldes un directorlo del disco, cuando llegues al nombre de 
tu programa, la pantalla quedard en bianco. 

No puedes cargar el programa con su nombre modificado porque CHR$( 125) no 
es un caracter legal en un nombre de archlvo. Sin embargo DOS no consldera 
dlsponlbles estos sectores, estan protegldos y no puede escrlblrse nada en 
el los. Creaste, entonces, un archlvo que no puede ser cargado o ejecutado sin 
modlficar su nombre. Con una eleccidn aproplada de los caracteres de control 
(por ejemplo CTRL <--), puedes nombrar un archlvo y hacer que nl slqulera 
aparezca en la llsta. 

Mira, aqul tlenes otro ejemplo para probar. Haz otro programa cortlto y 
grabalo como el primer programa en un diskette vacio. Luego graba otros 
programas con otros nombres. Ejecuta el programa "DESCUBRIDOR", usa la 
opcldn 2 para revlsar el sector 361 y usa la opclbn de camblo con Insercidn de 
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numeros ocho veces para Insertar los siguientes numeros al prlncipio del area 
de entrada de tu programa (comienza al prlncipio, no en el nombre): 66, 1,0, 4, 
0, 88, 156, 155. Luego cambia los ocho bytes restantes de ese directorio por 
espacios. Puedes usar la opcibn de insercibn de numeros, con insercibn de 
bytes mOltiples, ya que son todos el mismo numero. El numero 32 representa 
el caracter AT ASCI I del espacio en bianco. 

Vuelve al DOS. Llsta el directorio; no aparece nada. Todavla puedes cargar, 
ejecutar y grabar los programas en forma normal, pero solo si conoces sus 
nombres correctamente. 

iQUE ENTRETENIDO! TODO EL MUNDO ALEGA QUE LOS MlCROCOMPUTADORES NO 
TRAEN BUENAS FUNCIONES DE PROTECCION Y COSAS ASI, PERO CON TODAS 
ESTAS POSIBILIDADES EL QUE NO PROTEGE SUS PROGRAMAS ES PORQUE NO 
QUIERE. 

Asl es. Y ya vez que no es demasiado complicado. 

SABES, ME QUEDO UNA DUDA CUANDO M0DIF1CAM0S EL NOMBRE DEL PROGRAMA 

Y LE METIMOS UN CARACTER PARA BORRAR LA PANT ALL A DENTRO DEL NOMBRE 
LIE ACUERDAS? 

Si. bCual es tu duda? 

CUANDO LO LISTO CON D.O.S. SE LIMPIA LA PANT ALLA PERO EN EL DESPLIEGUE 
POR PANT ALLA APARECE UNA FLECHA. 

Existe un POKE para hacer que el computador despliegue caracteres de 
comandos en vez de ejecutar los comandos. Ese POKE lo encuentras en la llnea 
1047 (POKE 766,1). POKE 766,0 te devuelve al modo normal. Prueba POKE 
766,1 en modo directo y trata de editar la pantalla con las flechas de control. 
Con la opcion 2 adembs se puede ver mas informacion de un archivo. Entre el 
primer byte y el primer byte del nombre hay 4 bytes que contienen el numero 
del primer sector del archivo y la longitud de este en sectores. Esta 
informacibn estb almacenada en el formato low/high que vimos hace un rato. 
Con la opcibn 2, la interpretaclbn de estos bytes se despliega al lado derecho 
de la pantalla. 

Y TODAS LAS OTRAS OPCIONES DEL PROGRAMA bNUNCA SE OCUPAN? 
Entretengbmonos un poco con las otras opciones. Examina el sector del 
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directorio que contlene el archlvo DUP.SYS, el DISK UTILITIES PACKAGE 
(Paquete de utllltarlos de disco) y fljate en que sector comlenza. Ahora vuelve 
al menu principal y escoge la opcidn 1. Escoge el sector donde comlenza 
DUP.SYS. Ingresa la opcldn de despllegue en caracteres y verds el primer 
sector de DUP.SYS desplegado en forma de caracteres. En alguna parte en ese 
sector veras el mensaje que aparece en la parte superior de la pantalla cuando 
pones el DOS. Con la opcldn de camblo de sectores puedes poner tu proplo 
mensaje y as! cada vez que pongas el DOS se desplegara. 

AH! LE PUEDO PONER Ml NOMBRE Y ASI SI ALGUIEN ME LO COPIA LO PILLO. 
TAMBIEN PUEDO PONERLE ALGUNA EXPLICACION 0 UN NOMBRE SIMPATICO. 

Fljate ademds que el computador emlte un ruldo (beep) varias veces durante el 
despllegue. Esto ocurre porque hay varios bytes en el archivo que tienen valor 
155, el cddigo de la tecla RETURN presionada. 

BUENO, LO PUEDO ELIMINAR CON EL POKE QUE USAMOS RECIEN. 

No, esto no tlene representacion en caracteres, nl slquiera con el POKE 766,1 
asl que normalmente rompe la imagen en la pantalla con saltos de llnea. 

LY NO SE PUEDE EVITAR? 

Para evltar esto, el programa los detecta, hace sonar el "beep" para que tu 
sepas que existen y pone un asterlsco en inverso en la pantalla para mostrar 
su ubicacidn. Esto lo hace la llnea 1067. 

Cada sector en el disco tlene 128 bytes de largo. Sin embargo, si el sector fue 
llenado con el Atari DOS, solo quedan disponibles 125 bytes para datos. 

!YA ESTA EL FRESCO DEL DOS OCUPANDO MIS SECTORES! 

£QUE PASO CON LOS OTROS TRES REST ANTES? 

Los otros 3 bytes contienen informacidn "domestica". El byte 126 tiene en 6 
de sus bits, el numero del archivo con el cual se asocia el sector. En los otros 
dos bits del byte 126 y en los 8 bits del byte 127 esta el proximo puntero. 

LEI PROXIMO PUNTERO? SI NO TIENE QUE VER CON FUTBOL, NO TENGO IDEA DE 
LO QUE ME ESTAS HABLANDO. 

El prdximo puntero es un lndicador. En este caso indica el prdximo sector de 
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ese archivo especiftco del DOS. Lo que pasa es que todos los sectores 
asoclados a un cierto archlvo del DOS no tlenen porque estar contiguos, uno al 
lado del otro, en el disco. Por eso necesltamos un puntero que nos Indlque cual 
es el prbximo sector. 

El byte 128 tiene un contador de la cantldad de bytes sin uso que quedan en el 
sector. 

IS COMO PUEDEN QUEDAR BYTES SIN USO EN UN SECTOR? 

Por ejemplo, si ese sector es el ultimo de un archlvo, puede que no estb lleno. 
DOS neceslta saber cuantos bytes estan en desuso para no cargar esta parte 
del sector a la memoria principal como parte del archivo. 

BUENO, EN REALIDAD ESTA INFORMACION ES BIEN UTIL. POR ESTA VEZ CREO QUE 
EL DOS TIENE RAZON DE OCUPARLOS. 

La opcion 3 del Menu principal permite rastrear automaticamente a traves de 
un archivo de DOS sector por sector, siguiendo los punteros. Encuentra el 
sector inicial del archivo DUP.SYS. Escoge esta opcion con su primer sector 
como el inicial, Ahora te aparece un menu con dos opciones: auto trace y 
pausa. 

IS DE QUE SE TRATAN? 

Pausa indica que el computador esperara que presiones una tecla despues que 
se despliega cada sector, para seguir con el siguiente. Auto trace te permite 
recorrer los sectores uno tras otro hasta el final del archivo. 

BUENO, PERO S1GAMOS CON EL EJEMPLO. 

Ya. Escoge la opcion de pausa. Luego escoge despliegue en forma de caracteres. 
Veras los sectores del archivo DUP.SYS que se despliegan sucesivamente. 
Parte de la informacibn, como el menu del DOS sera ilegible. La opcion Trace 
(rastreo) tambien se puede usar para revisar programas almacenados. 

IS ES LEGIBLE UN PROGRAMA DE ESTA FORMA? 

SI un programa ha sido salvado (SAVE), la mayor parte de bl lucira como 
garabatos. Sin embargo, si un programa fue listado (LIST) al disco, sera 
posible leerlo ya que todavia esta en caracteres ATASCII. 
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A1 mirar un programa llstado verds las llneas de programa corrlentes, 
seguidas de un "beep” y un asterisco en Inversa. 

iAH! ESE ASTERISCO CORRESPONDE AL RETURN QUE SE PRESIONA DESPUES DE 
CADA LINE A. 

La Opcldn 6 te entrega una tabla de todos los sectores utlllzados por un 
archivo dado, si tu 1e das el sector Inlclal. Con esta opcldn te dards cuenta que 
en muchos casos los sectores no son contlguos. 

VAMOS MAS LENTO. TE SALTASTE LA OPCION 4. 

La Opcldn 4 es muy similar a la 3. Se usa para revlsar un bloque de sectores 
contlguos, Ingresando el sector Inlclal y el numero de sectores que quieres 
ver. Esta opcldn no slgue el mdtodo "encadenado” del trace, ignora por 
completo los punteros. 

AHORA NOS TOCA LA OPCION 5. 

Como todos los sectores creados con DOS contienen el numero de la poslcldn 
que ocupan en el dlrectorio es posible hacer un mapa del disco, marcando cada 
sector con el archivo al cual estd encadenado. Y esto es exactamente lo que 
hace la opcldn 5. 

Ejecutala, con un disco que tenga muchos archivos y haya sldo muy usado 

cargando y regrabando estos archivos. Toma solo unos pocos minutos.el 

mapeo de los 720 sectores. SI tlenes una Impresora seguramente te interesard 
camblar al modo de impresion para tener una copia del mapa para references 
futuras. 

SABES? SE ME OCURRE QUE NO ES MUY VENTAJOSO TENER UN PROGRAMA TAN 
SEPARADO EN EL DISCO, SE DEBE PERDER TIEMPO EN JUNTAR TODOS LOS 
SECTORES PARA CARGAR UN PROGRAMA. 6N0 SE PUEDEN JUNTAR TODOS LOS 
SECTORES QUE CORRESPONDEN A UN MISMO PROGRAMA? 

Claro que si. Vedmos un ejemplo. Supongamos que escribiste tres programas 
A, B y C en ese orden. Estan almacenados en forma secuencial en el disco, con 
10 sectores por programa. Luego modlficas el programa A, agregandole 
algunas llneas con lo que ocuparia 15 sectores. Al salvarlo, el DOS slgue 
usando los 10 sectores del principle pero ahora necesita 5 mds, los tiene que 
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dejar despubs del programa C. Ahora el mapa del disco serla A-B-C-A. 

Luego puedes modlficar el programa C y tendrias A-B-C-A-C y as! 
sucesivamente. 

OVERBAD QUE SE PONE MAS LENTO? 

Y mas que eso es mucho mas facil que ocurran errores con los comandos LOAD 
y SAVE 

SI Dupllcamos el disco igual sigue con la misma organizacibn, pero usando la 
opcibn COPY del DOS, con nombre de archivos *.* los sectores de un mlsmo 
programa quedarbn contiguos en el disco, lo que lo hace mucho mbs confiable. 

CON TANTOS SECTORES DISPERSOS ZCOMO SABE EL DOS QUE SECTORES ESTAN 
EN USO Y NO PUEDEN UTILIZARSE? 

DOS mantiene un mapa de los sectores del disco, que se actualiza despubs de 
cualquier modificacion. Este mapa lo guarda en el sector 360. Por esto el 
sector 360 es un sector especial reservado que se crea cuando formateas un 
disco. 

6Y POR QUE EL 360? 

Se escogib el 360 ya que estb cerca de la mitad del disco y por esto tiene un 
tiempo promedio de acceso menor. Esto es muy importante, ya que se accesa 
durante cada operacion de grabacibn. 

EJecuta la opcibn 1 del Menu Principal. Escribe 360 para el sector. Escoge la 
opcibn 4, que solo aparece cuando eliges el sector 360, un mapa hexadecimal 
del sector 360. Despubs de un momento verbs el contenido del sector 360 
desplegado en hexadecimal. Probablemente la mayoria serbn F's y O’s. 

IS QUE SI6NIFICA ESTO? 

El cero indica los sectores en uso. Cada 0 indica 4 sectores en uso. 

NO ENTIENDO MUCHO. 6P0R QUE 4 SECTORES? 

Recordemos un poco los numeros binarios y hexadecimales. Cada conjunto de 2 
digitos hexadecimales representa un byte. Un byte son 8 bits, por eso dos 
digitos hexadecimales representan 8 sectores en el mapa. F es el digito 
hexadecimal de 15, que en binario es 1111. Los sectores libres en un disco se 
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muestran como 1's, por eso FF Indlca 8 sectores disponlbles. 

AHORA SI ENTENDI. QUE PASA CON LOS OTROS CARACTERES 
HEXADECIMALES? 

C en hexadecimal es un 12 en decimal, lo que en blnarlo es 1100. Por eso una C 
en el mapa Indlca 2 sectores disponlbles, seguldos por 2 sectores en uso. Los 
sectores en uso estan protegldos. Esta protecclon puede hacerse con DOS o con 
algun otro mbtodo, por ejemplo con el programa "DESCUBRIDOR". De esta forma 
puedes reservar espacio en el disco que Jambs sera ocupado por el DOS. 

ES UN POCO COMPLICADO EL MAPA DE LOS SECTORES. UNO NUNC A UTILIZA LOS 
NUMEROS HEXADECIMALES. 

Como ayuda, los numeros declmales que muestran qua sector se represents 
por el ultimo bit del ultimo numero en esa llnea, se llstan al lado derecho de 
la pantalla. 

BUENO. AHORA ME GUSTARIA VER EL PROGRAMA. 

Prlmero, como ya te lo habla dlcho, te dare una llsta con todas las variables 
que usa el programs, que son bastantes. 

L1STA DE VARIABLES DEL "DESCUBRIDOR" 

BITS Tabla de busqueda de numeros declmales con sets de bits suceslvos. 
BLA$ String de blancos para borrar textos de la pantalla. 

BUF$ Area buffer usada para almacenar informacibn letda de un sector, o 
informacibn que tlene que ser grabada en un sector. 

DSKINVS Llama a la subrutlna OS para acceso al disco. (Slstema Operatlvo). 

G$ Guarda una S o N para las respuestas. 

H$ Almacena el contenldo de BUF$ despubs de la converslbn hexadecimal. 

HEX$ Tab 1 a de busqueda de d 1 g 1 tos hexadec 1 ma 1 es para convers 1 bn. 

KNOTS Rutlna en lenguaje de mbqulna para negar (NOT) un numero. 

NDS Hace un AND lbgico entre dos numeros. 

OARS Hace un OR lbgico entre dos numeros. 

VBS Rutlna en lenguaje de mbqulna para Inlcializar la rutlna vertical con 
blancos. 

AP Dec 1 s 1 bn de Auto Trace o Pausa. 

B Variable temporal para leer datos a strings. 



90 


COMPU ATARI 


BIT Valor AT ASCI I de BITS(BITMOD). 

BITMOD Indice de BITS. 

BLK Comienzo del bloque de control del disco en memoria. 

BN Bytes del mtsmo nOmero que se tlenen que insertar en BUF$ 

CN Numero de caracteres que se tlenen que Insertar en BUF$ 

FN Numero del archlvo de los datos del sector 
FP Puntero al proximo sector del archlvo. 

FUN Numero de la funclOn para la rutlna de acceso al disco. 

H Valor AT ASCI I de los caracteres de BUFS para convertlr a 

hexadecimal. 

HH Byte mayor de H 
HL Byte menor de H. 

I Variable de Indlce de loops. 

J Almacenamlento temporal e Indlce de loops. 

K Byte desde la pantalla en la rutina de vaclado a la Impresora. 

LK Variable de elecclon para opclones de protecciOn/desproteccibn 
(lock/unlock). 

M Almacenamlento temporal de valores PEEK. 

MEM Puntero a bloques de memoria. 

N Variable Indlce a H$ 

NB Valor del nuevo byte a Insertar en BUFS 

NFRE Numero de sectores dlsponlbles desde el Sector 360. 

NFREH Byte mayor de NFRE 
NFREL Byte menor de NFRE 
NR Numero del error en lectura de sectores. 

NSL Numero de sectores para proteger/desproteger 
NUM Numero de bloques o sectores para revlsar 
P Byte desde el teclado para contlnuar. 

PK Variable para almacenamlento temporal de valores PEEK. 

Q Para usar con funclones USR 

RSLT Resultado de subrutina de operaciones ldglcas 

SEC Sector a accesar. 

SECHI Byte mayor de SEC 
SECLO Byte menor de SEC. 

SS Sector Inlclal para operaciones 

SSH Byte mayor de SS. 

SSL Byte menor de SS 

TY Tlpo de vaclado requerido (Impresora - pantalla). 

WH Opcldn en el Menu principal 
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LISTADE SUBRUTINAS 


l00-260 

300-770 

660-670 

780-1000 

1040-1105 

1106-1160 

1200 

1400-1440 

1600-1640 

1700-1799 

1800-1840 

2010-2200 

3000-3060 

4040-4060 

4205-4240 

5015-5060 

7010-7100 

8010-8100 


Inicializacion 

Menu principal y submenus. 

Revisar la memoria en vez del disco. 

Mane jo de algunas opciones de menu. 

Vaciado de caracteres. 

Cambio de un sector. 

Borra ei texto. 

Opcibn de copia de un sector. 

Option de respaido del directorio. 

Proteger y desproteger sectores del bit map y actualizar el 
contador de sectores disponibles. 

Opciones de mapeo de archivo. 

Opcion de mapeo de sectores encadenados. 

Vaciado de la pantalla a la tmpresora. 

Conversion hexadecimal. 

Vaciado hexadecimal. 

Vaciado decimal 

Determina numero del archivo y al proximo puntero. 
Lee/escribe un sector del archivo. 


PROGRAMA "DESCUBRIDQR" 


Precaucion: El mal uso de este programa puede destrulr programas de gran 
valor. Por favor lee cuidadosamente las instrucciones de las paginas 
anterlores antes de usarlo. 


0 REM SAVE *D:DESCUBRE‘ 

100 REM ** PR06RAMA DESCUBRIDOR * » 

105 CLOSE *2:0PEN *2,4,0,"K:' 

107 CLOSE *4:0PEN *4,12,0,"S;" 

109 POKE 766,0 

200 DIM BUF$( 130),DSKINV$( 10),6$( 1 ),ND$( 12),HEX$( 16),H$( 1155), 

BLA$(38),VB$( 11 ),BIT$(8),0AR$(I2),KN0T$( 12) 

203 HEX$-“0123456789ABCDEF “ 

204 BLA*-“ 

205 DATA 104,32,83,228,96 

210 RESTORE 205 

211 FOR 1-1 TO 5 

212 READ B:DSKINV$(I)«CHR$(B) 

213 NEXT I 

215 DATA 104,104,104,133,209,104,104,37,209,133,209,96 

220 RESTORE 215 

221 FOR 1-1 TO 12 

222 READ B:ND*(I, IKHR$(B) 

223 NEXT I 

225 0AR*-ND$:0AR$(8KHR*(5) 

226 KN0T$-ND$:KN0T$(8KHR$(69) 



230 

231 

235 

236 

237 

238 

240 

245 

246 

247 

248 

250 

260 

270 

280 

290 

300 

305 

310 

315 

320 

325 

330 

335 

340 

345 

350 

355 

356 

360 

375 

376 

377 

400 

405 

410 

430 

440 

450 

455 

460 

480 

485 

490 

500 

510 

520 

600 
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DATA 72,169,8,141,31,208,173,31,208,201,5,208,8,173,255,6, 

73,255,141,255,6 

DATA 173,255,6,201,255,240,7,169,148,141,198,2,208,5,169, 

162,141,198,2,104,76,95,228 

RESTORE 230 

FOR 1=1 TO 44 

READ B:P0KE 1535+I.B 

NEXT I 

DATA 104,162,6,160,0,169,6,32,92,228,96 

RESTORE 240 

FOR 1=1 TO 11 

READ B:VB*(I)=CHR*(B) 

NEXT I 

Q=USR(ADR(VB$)) 

J-128 

FOR 1=1 TO 8 
BIT$(IKHRt(J)J=J/2 
NEXT I 

LM=23POSITION 0,0:? CHR$(125);“(EN UN DISKETTE DOS STANDARD" 

? “LOS SECTORES 361-368 CORRESPONDEN AL DIRECTORS)":? ;? 

?"1.-REVISAR UN SECTOR" 

? “2-REVISAR UN SECTOR DENTRO DEL DIRECTORS* 

? "3.-RASTREAR UN ARCHIVO” 

? “4-REVISAR UN CONJUNTO DE SECTORES” 

? ”5 .-MAPA DE SECTORES ENCADENADOS EN EL DISCO” 

? "6.-MAPA DE UN SOLO ARCHIVO” 

? “7.-C0PIAR UN SECTOR” 

? "8.-RESPALDAR EL DIRECTORS" 

? “9.-PR0TEGER/DESPR0TE6ER SECTORES" 

? “10.-REVISAR LA MEMORIA" 

? :INPUT WH 

ON WH GOTO 400,400,450,480,2010,1800,1400,1600,1700,375, 

1900 

? CHR$(125):? :? :? 

? "LOCALIZACION DE MEMORIA INICIAL”;:INPUT MEM 
? :? “NUMERO DE BLOQUES A REVISAR";:INPUT NUM:GOTO 500 
? CHR$(125):? :? 

? “(SECTORES DEL DIRECTORIO-361-368)“ 

? "QUE SECTOR“;:INPUT SEC 
IFWH-2 THEN TY= 1:60T0 720 
60T0 600 
? CHR$(125):? :? 

? "CON QUE SECTOR COMENZAR EL RASTREO"; 

INPUT SEC:GOTO 500 
? CHRK125):? :? 

? “NUMERO DE SECTORES";:INPUT SEC2 
? :? "SECTOR INICIAL ”;:INPUT SEC1 
? CHR$( 125):? :? 

? "1-AUTOTRACE”:? "2-PAUSE”:? 

INPUT AP 
? CHR$(125):? :? 
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602 ? "TIP0 DE DESPLIEGUE 

604 ? '1* CARACTERES":? :? “2=HEXADECIMAL“:? :? “3-DECIMAL" 

605 IF SEC< >360 THEN ? :INPUT TY:60T0 650 

610 ? :? "4-MAPA HEXADECIMAL DEL SECTOR 360“:? 

615 INPUTTY 

650 IF WH<>10 THEN 700 

660 LM-12:? CHR$(125):SEC=1 

662 FOR M-MEM TO MEM+128* (NUM-1) STEP 126 

664 POSITION 1,0:? "MEMORIA COMENZANDO EN “;M 

670 FOR PK-1 TO 126 

672 BUF $(PKXHR$(PEEK(M+PK-1)) 

674 NEXT PK:60T0 735 

700 IF WH-4 THEN FOR SEC-SEC 1 TO SEC 1+SEC2-1 

720 BUF$(128K ":FUN-82 

730 60SUB 8010 

735 REM 6UARDA LU6AR PARA FUTUROS ENCADENAMIENTOS 

740 ON TY 60SUB 1040,4040,5015,4040 

765 IF WH-10 THEN 840 

770 IF WH<>2 THEN 800 

780 ? :? “BYTES DE ENTRADA DEL DIRECTORIO:":? 

785 ? “START+0-FLA6":? “(66/NORMAL; 128/ELIMINAD0;98/ PR0TE6ID0;ETC.)“ 

790 ? "START +1,2-CONTADOR DE SECTORES LO/HI":? “START+3,4- 

SECTOR INICIAL LO/H!" • 

800 60SUB 7010 

810 POSITION 2,20:? "NRO DEL ARCHIV0-";FN 

815 POSITION 2,21:? "PROXIMO PUNTERO AL SECTOR-“;FP 

820 POSITION 2,22:? “SECTORES EXTRA-"; 125-ASC(BUF$( 128)) 

840 IF PEEK( 1791 >255 THEN GOSUB 3000 

845 IF AP-1 THEN 60T0 920 

850 POSITION 2,23:? "PRESIONA CUALQUIER TECLA PARA C0NTINUAR“;:6ET 

*2,P:G0SUB 1105 

920 IF WH-3 AND FP-0 THEN POSITION 2,23:? BLA$;:P0SITI0N 2,23:? “FIN DEL 

RASTRE0“;:AP-2:WH* 1:60T0 850 

930 IF AP<> 1 THEN POSITION 2,21:? BLA$ POSITION 2,21;? “PRESIONA CUALQUIER 

TECLA PARA C0NTINUAR“;:6ET # 2,P 
935 IF WH-10 THEN NEXT M 

940 IF WH-3 THEN SEC-FP:GOTO 720 

950 IF WH-4 THEN NEXT SEC 

1000 GOTO 300 

1040 IF WH-10 THEN 1047 

1045 POSITION 0,0:? CHR*( 125);"NRO SECT0R“;SEC:? 

1047 POKE 766,1 

1060 ? “BYTEY 02468ACE SSTLTH":? 

1061 FOR 1-1 TO 8 

1065 ? 1ta*(M);16*1-1,:FOR J-0 TO 15:K-16*(I-1)+1+J 

1067 IF ASC(BUF$(K ,K))-155 THEN POKE 766,0 

1068 ? CHR$(253);“*“;:P0KE 766,1 :GOTO 1070 

1069 ? BUF$(K,K); 

1070 NEXT J 

1071 IF SEC<361 OR SEC >368 THEN ? :GOTO 1075 

1072 POSITION 30,3+1:? 256*ASC(BUF$(16»(I-1H5)>+ASC(BUF$(16» (l-1>4)) 




1073 

1075 

1078 

1103 

1105 

1106 

1107 

1110 

1112 

1114 

1116 

1118 

1120 

1122 

1130 

1142 

1144 

1146 

1148 

1149 

1150 

1160 

1200 

1400 

1405 

1407 

1410 

1420 

1430 

1435 

1440 

1445 

1600 

1605 

1610 

1615 

1620 

1625 

1630 

1635 

1640 

1650 
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POSITION 35,3+1:? 256* ASCtBUF $( 16-(I-1 )+3))+ASC(BUF $(16* 

( 1-1 > 2 )) 

NEXT I POKE 766,0 
RETURN 

IF PEEK( 1791 >255 THEN GOSUB 3000 

IF WH-10 THEN POP :60T0 935 

FOR 1-1 TO 3POSITION 2,20+1:? BLA$;:NEXT I 

GOSUB 1200:? “DESEAS CAMBIAR EL SECTOR(S/N)";:INPUT 6$: 

IF 6$<>“S“ THEN RETURN 

GOSUB 1200:? “INSERTA NUMERO (N) 0 CARACTERES (C)";: INPUT 6$ 

IF G$-“N“ THEN 1130 
IF 6$<>“C“ THEN 1110 

H$*“ “:GOSUB 1200:? “CUANTOS CARACTERES QUIERES CAMBIAR"; :INPUT CN 

GOSUB 1200:? “EN QUE BYTE COMENZAR";:INPUT BYTE 
GOSUB 1200:? “ESCRIBE LOS “;CN;“ CARACTERES A INSERTAR 
.“:INPUT H$ 

BYTE-BYTE+1 :BUF$(BYTE,BYTE+CN-1 )-H$ :60T0 1150 

GOSUB 1200:? "CUANTOS BYTES CON EL MISMO NUMERO";:INPUT 

BN 

GOSUB 1200:? “NRO DEL BYTE PARA COMENZAR“;:INPUT BYTE:B* 

BYTE+1 

60SUB 1200:? “BYTE ANTIGUO ";BYTE;"-“;ASC(BUF$(B,B)); 

? “BYTE NUEVO “;BYTE;“=“: INPUT NB 

FOR l-B TO B+BN1 

BUF$(1,1 XHR$(NB ):NEXT I 

6$-“ “:60SUB 1200:? “ESCRIBE S PARA MODIFICAR EL SECTOR“;:INPUT G$:IF 

G$<>“S“ THEN 1105 

FUN-87 :GOSUB 8010 POP :G0T0 720 

POSITION 2,21:? BLA$ POSITION 2,21:RETURN 

POSITION 0,0:? CHR$(125);:? 

? “NRO. DEL SECTOR A COPIAR“;:INPUT SEC 

? : ? "INSERTA DISKETTE FUENTE, PRESIONA CUALQUIER TECLA" 

GET*2.P:BUF$(128K “:FUN-82:G0SUB 8010 

SECT-SEC:? :? "NRO. DEL SECTOR DE DESTIN0“;:INPUT SEC 

? :? ‘INSERTA DISKETTE DE DESTINO, PRESIONA CUALQUIER TECLA".GET *2, 

P:FUN-87:60SUB 8010 

LK-1 :SS-SEC:NSL-1 :GOSUB 1710 

? :? “ SECTOR “;SECT;“ ANTIGUO';:? "GRABADO COMO EL SECTOR"; 

SEC;"NUEVO“:? :? “CUALQUIER TECLA PARA EL MENU- 
GET # 2,P:60T0 300 

POSITION 0,0:? CHR$(125);:? :? “INSERTA DISCO CON DIRECTORS A GRABAR" 

? ‘Y PRESIONA CUALQUIER TECLA PARA CONTINUAR“:GET *2P 

FUN-82 :BUF$( 128 )*“ “:FOR 1-0 TO 8 

SEC-360+1 .GOSUB 8010:N-128** 1+1 :H$(N,N+127)=BUF$:NEXT I 

? :? “NRO DEL SECTOR INICIAL PARA GRABAR DIR.“"INPUT SS 

? :? “INSERTA DISCO DE DESTINO, PRESIONA CUALQUIER TECLA": 

GET # 2,P 

FUN-87:FOR 1-0 TO 8:SEC-SS+I:N-128*I+1 
BUF$«H$(N,N+ 127):G0SUB 8010:NEXT l:LK-1:NSL=9:60SUB 1710 
? :? “DIR GRABADO EN EL SECT0R‘;SS;"AL“;SS+8:? :? “CUALQUIER 
TECLA PARA EL MENU" 

GET *2,P:G0T0 300 
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1700 POSITION 0,0:? CHR$(125):? "1- PR0TE6ER":? "2-DESPR0TEGER": 

? :INPUT LK 

1705 ? :? :? "COMENZAR CON EL SECTOR"; :INPUT SS 

1707 ? :? "CUANTOS SECTORES";:INPUT NSL 

1710 SEC-360:FOR 1-0 TO NSL-1 :BUF$( 128)-" ":FUN-82:60SUB 8010 

1720 S-SS+I :SSH-INT(S/8):SSL»S-8*SSH 

1721 BYTE-ASC(BUF$( 11 +SSH)):BITMOD-SSL+1 :BIT-ASC(BIT$ (BITMOO)) 

1722 Q-USR(ADR(ND*),BIT,BYTE):IF (LK-2 AND PEEK(209)>0) OR (LK-1 

AND PEEK(209)-0) THEN 1795 

1725 IF LK-2 THEN Q=USR(ADR(OAR$),BIT,BYTE):RSLT=PEEK(209): 

GOTO 1735 

1730 G-USR(ADR(KNOT$),&IT,255):RSLT-PEEK(209):G=USR(ADR(ND$), 

RSLT,BYTE):RSLT=PEEK(209) 

1735 BUF$(11+SSHKHR$(RSLT):NFRE=ASC(BUF$(4)H256»ASC(BUF$ 

(5)):IF LK-1 THEN NFRE-NFRE-1 .GOTO 1745 
1740 NFRE-NFRE+1 

1745 NFREH-INT(NFRE/256):NFREL=NFRE-256» NFREH 

1750 BUF$(4>CHR$(NFREL):BUF*(5)«CHR$(NFREH) 

1790 FUN-87 :GOSUB 8010 

1795 NEXT I :IF WH-7 OR WH-8 THEN RETURN 

1799 GOTO 300 

1800 BUF*(128K ":N-0:P0SITI0N 0,0:? CHR$(125):? "EL ARCHIVO 

COMIENZA EN EL SECTOR“;:INPUT SEC:POKE 82,1 POKE 201,5 

1810 FUN-82:GOSUB 8010:G0SUB 7010:N=N+1:IF N-9 THEN N-1:? :? 

1820 ? SEC:SEC-FP:IF FP < > 0 THEN 8010 

1830 POKE 82,2POKE 201,10:? :? “FIN DEL MAPA...*:IF PEEK(1791)= 

255 THEN 60SUB 3000 

1840 POSITION 2,23: ? "CUALQUIER TECLA“;:GET *2,P:G0T0 300 

2010 ? CHR$(125):SEC«0:FUN-82:BUF$(128K “POSITION 1,23:? 

"CUALQUIER TECLA PARA TERMINAR"; 

2020 POKE 764,255POKE 766,1:F0R J-0 TO 23P0SITI0N 1J:? J»30+1;"-";(J+1)»30; 

2025 POSITION 9,J:F0R- 1-1 TO 30:SEC-SEC+1 

2030 IF PEEK(764>255 THEN 60SUB 8010:60SUB 7010:60T0 2038 

2035 POKE 764,255POP POP :GOTO 2150 

2038 IF NR < > 1 THEN ? “»";:60T0 2100 

2040 IF FN< 10 THEN ? CHR$(FN+48);:G0T0 2100 

2050 IF FN>9 THEN IF FN<36 THEN ? CHR$(FN+55);:60T0 2100 

2060 IF FN>35 THEN ? CHR$(FN+61); 

2100 NEXT l:NEXT J 

2150 IF PEEK( 1791 )=255 THEN GOSUB 3000 

2160 POSITION 2,23:? BLA$;:POSITION 1,23:? "PRESIONA CUALQUIER 

TECLA"; 

2200 POKE 766,0:6ET *2,P:60T0 300 

3000 POKE 764,255POKE 766,1:TRAP 3060:CL0SE *3:0PEN *3,8,0, 

“P:“ 

3020 FOR J-0 TO LMfOR 1-0 TO 39 

3030 POSITION I, J:6ET *4,K 

3035 IF K > 127 THEN K-K-128 

3036 IF K<32 OR K-127 THEN ? *3;"»“;:60T0 3045 

3040 ? *3;CHR$(K); 

3045 NEXT I1PRINT :IF PEEK(764)-255 THEN NEXT J:60T0 3050 



3047 

3050 

3060 

4040 

4050 

4060 

4205 

4210 

4220 

4240 

5015 

5017 

5020 

5025 

5030 

5040 

5050 

5060 

7010 

7050 

7100 

6010 

8020 

8040 

8050 

8060 

8070 

8080 

8085 

8086 

8090 

8095 

8100 
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POKE 764,255:P0P :G0T0 3050 
LPRINT1PRINT1PRINT 
POKE 766,0:TRAP 40000:RETURN 
FOR 1*1 TO 382 STEP 3:H-ASC(BUF$(INT(l/3)+1)):HH-INT 
(H/16):Hl-H-16* HH :HH=HH+1 :HL*HL+1 
H$(I,I)-HEX$(HH,HH):H$(I+1,1+1 )-HEX$(HL,HL):H$(l+2,l+2)-““:NEXT 
I 

IF WH*10 THEN ? :60T0 4210 
? CHR$(125):? :? “SECTOR “;SEC;"EN HEXADECIMAL" 

FOR 1-1 TO 16:? 8*1-1;“-";8*1-1,H$(24*(I-1)+1,24*I-1):NEXT I 
IF TY-4 THEN J-47:F0R 1*5 TO 16:P0SITI0N 36,1:? J;:J-J+64; 
NEXT I 
RETURN 

POKE 82,1:P0KE 201,5 
IF WH-10 THEN 60T05025 

POSITION 2,0:? CHR$(125);“SECT0R ";SEC;“ EN DECIMAL “ 

? :FOR 1-0 TO 7:? I,CHR$(30);:NEXT I:? 

FOR 1-1 TO 16:? 8*(l-1), 

FOR J-1 TO 8:? ASC(BUF$(8*(I-1)+J)),CHR$(30);:NEXT J:? 

NEXT l:POKE 201, 10.P0KE 62,2 
RETURN 

FP=ASC(BUF$(126)):Q=USR(ADR(ND$),FP,3):FP=PEEK(209)*256: 
FP-FP+ASC(BUF $( 127)) 

FN-ASC(BUF $( 126):Q-USR(ADR(ND$),FN,152):FN*INT( F N/4) 

RETURN 

BLK-768 

POKE BLK+1,1 :POKE BLK+2, FUN 
ABUF-ADR(BUF$):AHI=INT(ABUF/256):AL0-ABUF-256*AHI 
POKE BLK+4, AL0:P0KE BLK+5.AHI 
SECHI=INT(SEC/256):SECL0*SEC-256 * SECHI 
POKE BLK+10,SECLO:POKE BLK+11,SECHI 
Q-USR( ADR(DSK IN V $)) :NR-PE EK (BLK+3) 

IF WH-5 THEN 8100 
IF NR-1 THEN 8100 

POSITION 0,0;? CHR$(125) :? :? :? “SECTOR “;SEC;“-SECT0R 
MALO“:IF AP-1 THEN 8100 

? :? “PRESIONA CUALQUIER TECLA PARA C0NTINUAR":6ET *2,P: 

POP :60T0 300 

RETURN 
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yao DEL JOYSTICK 


iYA ME SIENTO UN EXPERTO EN ATARI BASIC!. LO UNICO QUE ME FALTA SABER ES 
ALGO QUE ME PROMETISTE <i,NO TE ACUERDAS? 

.algo que te prometi. 6Ser3 el uso del Joystick? 

SI! ESO ES! ME GUST ARIA PODER HACER UN PROGRAMA QUE UTILICE EL 
JOYSTICK. 

Prtmero te voy a dar algunas indlcaciones para que no cometas los errores que 
suelen cometer las personas que hacen rutlnas para usar el joystick dentro de 
sus programas. 

LISTO TRATARE DE NO CQMETER LOS ERRORES QUE ME ADVIERTAS. 

La mayorla de las rutlnas de joystick escrltas por prlnclplantes contlenen 
numerosas Instrucclones IF - THEN que hacen que el joystick responda en 
forma muy lenta. 

Los prlncipiantes, ademas, a menudo ubican las rutlnas de uso del joystick en 
numeros de linea muy altos (por ejemplo, lOOOOO) y usan Instrucciones como 
GOSUB 100000 para las rutinas del joystick. 

PERO ESO NO TIENEN NAD A DE MALO, FUNCIONA. 

SI, funciona, pero es demasiado lento. Es mejor poner estas rutinas al 
comienzo del programa y comprobaras que aunque sean las mismas 
Instrucciones funciona mas rapido. 

6Y CUAL ES LA RAZON DE ESTO? 

Es muy simple. Para ejecutar una instruccidn como GOSUB 100000 el 
computador tiene que verificar linea por linea hasta que encuentra la 
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100000. SI pones la misma rutina en la llnea 10 el computador la encontrara 
mucho mas rapido. Mas adelante encontraras dos rutinas que puedes usar en 
tus programas. 

IDE QUE SE TRATAN ESAS RUTINAS? <LC0M0 FUNCIONAN? 

El programa 1 coloca toda la Informacion necesaria para manejar el joystick 
en dos arreglos <tsabes«para qu£?. 

BUENO, SUPONGO QUE PARA TENER TODOS LOS DATOS EN UN MISMO LUGAR. 

V ademds asl tienes la Informacldn slempre en memorla 6Cierto?. Entonces 
colocamos un 0, 1 o -1 en cada uno de los elementos del arreglo. X = STICK(O) 
le dara a X un valor relacionado con la poslcidn del joystick en el slot 1. SI el 
joystick esta en la posicidn central, X sera igual a 15. Cuando los arreglos 
fueron creados, el qulnceavo elemento tanto para el arreglo de flias como de 
columnas se inlclallzaron con valor cero (COLO5) = 0; FILA05) = 0). Por esto, 
cuando a la posicion actual le agregas COLO5), no hay ningun camblo, como 
tampoco habra cambio en la f 1 la. En forma similar, si mueves el joystick hacia 
arrlba, la fila Ira disminuyendo de a uno pero la columna permanece igual. 

A VER, ESTO QUIERE DECIR OUE SI MUEVO EL JOYSTICK UN LUGAR HACIA 
ARRIBA, EL NUEVO VALOR DE X SERA 14. POR ESTO, COL( 14) - 0 y F1LAC14) = -1 
6VERDAD? 


Asi es, esta muy blen tu razonamlento. Aqui tienes la lista con todos los 
valores de cada uno de los dos arreglos: 


COLO) = 0 
C0L(2) = 0 
C0L(3) = 0 
C0L(4) = 0 
C0LC5) = 1 
C0L(6) = 1 
C0L(7) = 1 
C0L(8) = 0 
C0L(9) =-1 


FILAO) = 0 
FILA(2) = 0 
FILAC3) = 0 
FILAC4) = 0 
FILAC5) = 1 
FILA(6) =-1 
FILAC7) = 0 
FILAC8) = 0 
FILAC9) = 1 
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COL( 10) = -1 
C0L( 11) = -1 
C0L(12) = 0 
C0L( 13) = 0 
C0L( 14) = 0 
C0L(15) = 0 


FILA(IO) = -1 
FILA(11) = 0 
FILA( 12) = 0 
FILA( 13) = 1 
FILA(14)--1 
FILA(15) = 0 


NO ENTIENDO MUCHO COMO FUNCIONA ESTO. 

Veamos un poqulto mas en detalle la rutlna. Las Hneas 100 y 110 
comienzan la creacidn del arreglo ubicando ceros en los elementos del 1 al 
4, ya que esos numeros no se utlllzan para la lectura del joystick. La llnea 
120 usa las sentenclas DATA de las Hneas 140 y 150 para colocar los 
valores apropiados en los elementos 5 al 15 de cada uno de los arreglos. 

<LPARA QUE SE USA LA INSTRUCCION TRAP? 

En las Hneas 40 y 13 aparece la Instruccldn TRAP 40. TRAP se usa aqul 
para evltar la verificaci6n de los Hmites de la pantalla cada vez que se 
recorre la rutlna. TRAP 40 mueve el programs a la llnea 40 cada vez que 
ocurre una condlclbn de error. Cuando la Instrucclbn PLOT de la llnea 30 
trata de graflcar en una poslclon que esta fuera de los Hmites, TRAP 
detecta el error. Sin esta Instrucclbn TRAP el programs se detendrla. Pero 
en esta rutlna el programa se traslada a la llnea 40, verifies los valores de 

la columna (C) y de la f 11a (F) y se resetean dentro de los Hmites legales. 

YA ENTENDI. iEL OTRO PROGRAMA FUNCIONA IGUAL? 

El programa 2 usa algunas de las mlsmas tbcnlcas usadas en el programa 1. 
La dlferencla principal es que las respuestas necesarlas para el 
movlmlento del joystick no se almacenan en arreglos. En vez de esto, las 
Instrucclones que Indlcan como mover el cursor se ublcan en la llnea a la 
cual se vuelve leyendo el joystick. 

6Y COMO SE HACE ESO? 
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En otras palabras, GOTO STICK (0) lee el joystick y va a la linea que 
corresponde al movimiento del joystick. Si el joystick estb en la posicibn 
central, la rutina va a la linea 15 y se repite. 

Para que este programa fundone, se tienen que usar numeros de linea 
apropiados. La linea 14 movers el cursor hacla arriba; la linea 13 lo harb 
hacia abajo; la linea 11 a la izquierda; la linea 7 a la derecha y asi 
sucesivamente. 

NO CREO QUE EL NUMERO DE LAS LINEAS SEA UNA LIMITACION TAN GRANDE. 
PODRIA ESCRIBIR: GOTO STICK(O) * 10 Y USAR LAS LINEAS DE LA 50 A LA 
150. 

Por supuesto. GOSUB STICK(O) tambibn es una instruccibn aceptable. Bueno, 
estos programas no necesitan tanta presentacibn, asi que aqui los tienes: 

PROGRAMA 1 LECTURA DEL JOYSTICK USANDO ARREGLOS. 

0 REM SAVE "DUOYARR" 

10 GOSUB 100 

20 X-STICK(0):C<+COL(X):F»F+FILA(X):IF X-15 THEN 20 
30 COLOR 0:PLOT A,B:C0L0R 1 :PLOT C,F:A-C:B-F:GOTO 20 
40 TRAP 40:IF C-1 THEN C«0:G0T0 P 

50 IF C-80 THEN C«79:G0T0 P 

60 IF F-1 THEN F«0:60T0 P 

70 IF F-48 THEN F-47:G0T0 P 

100 DIM FILA(15),C0L(15) 

110 FOR X-1 TO 4:FILA(XM):C0L(X)-0:NEXT X 

120 FOR X-5 TO 15:READ C,F:COL(XK:FILACXK:NEXT X 

130 GRAPHICS 21 :P-30:TRAP 40:POKE 712,132:P0KE 709,122:RETURN 

140 DATA 1,1,1 -1,1,0,0,0,-1,1 

150 DATA -1,-1,-1,0,0,0,0,1,0,-1,0,0 


PROGRAMA 2 LECTURA DEL JOYSTICK CON LA INSTRUCCION GOTO 

0 REM SAVE 'DUOYGOTO' 

2 GOTO 70 

5 C-C+1:F-F+1 :60T0 P 

6 C-C+1:F-f-1 :G0T0 P 

7 C-C+1 :G0T0 P 

9 C-C-1 :F-F+1:60T0 P 

10 C-C-1:F-F-1:G0T0 P 

11 C-C-1.60T0P 
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13 F«F+1:60T0P 

14 F- F-1:60T0 P 

15 60T0 STICK(O) 

20 CaOR 0:PL0T A,B:COLOR 1:P10T C,F:A-C:B«F:60T0 15 
30 TRAP 30:IF C-80 THEN C-79:60T0 P 
40 IF C*-1 THEN C-OSOTO P 

50 IFF-48 THEN F-47:60T0 P 

60 IF F—1 THEN F«0:60TO P 

70 P«20:6RAPHICS 21 .POKE 712,116.P0KE 709,16:TRAP 30:60TO 15 

E5 INTERESANTE IR BUSCANDO FORMAS DE OPTIMIZAR EL USO DE LA 
MEMORIA Y LOS PROGRAMAS MISMOS, ASI SE HACEN CADA VEZ MAS 
RAP I DOS. 

Desgraciadamente clertas instrucclones y mbtodos utlllzan mucha 
memorla. Un ejemplo de esto, son las rutinas que hacen llamados (CALL) o 
rutinas assembler a travbs de la funcibn USR. Este mbtodo requiere que la 
rutina en lenguaje de mbquina sea incluida en el programa codlftcada con 
Instrucclones DATA que tlenen que ser leidas (READ) a Ingresadas a la 
memorla con los POKES. 

Aparte de la gran cantldad de memorla que esto consume, como son rutinas 
en assembler, para hacerles cualquier modificaclbn es necesarlo conocer 
el Assembler 6502 de Atari. 

Y PARA ESO ME FALTA MUCHO, TRATEMOS DE HACER TODO CON EL BASIC. 

m?. 

Bueno. Tratemos de hacer una rutina de uso del joystick totalmente en 
BASIC y tan compacto como sea poslble, para equipos que tengan poca 
memorla. Adembs tlene que ser rbpida para que los juegos realmente 
tengan accibn. 

LO QUE ME ENSERASTE HACE UN RATO TAMBIEN ES IMPORT ANTE. EVITAR LAS 
TRANSFERENCIAS A OTRAS LINEAS YA QUE SI NO ES A LA LINEA SIGUIENTE, 
EL PROGRAMA COMIENZA A BUSCAR DESDE EL PRINCIP10. 

Correcto. Para empezar revisa esta rutina muy simple: 

20 S-STICK (S) 

30 DXKS-5 OR S«6 OR S-7HS-9 OR S-10 OR S-11) 

40 OYKS-5 OR S-9 OR S-13MS-6 OR S10 OR S-14) 

50 RETURN 
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iQUE CORTA! £Y COMO LA USO? 

Para usar esta rutlna, tlenes que hacer la variable S lgual al numero del 
joystick que quleres leer (0 - 1). Luego, llamar a la subrutlna, en este caso 
GOSUB 20. Los valores Delta-X y Delta-Y se obtienen en las variables DX y 
DY, respectIvamente. Observa que el valor de entrada (S) se plerde. SI 
llegases a necesltar este valor, cambla el nombre de la variable 
param£trfca de Indice del Joystick. Por ejemplo, si tu rutlna neceslta leer 
el joystick para cada uno de los cuatro jugadores en un juego, podrla 
contener la slgulente secuencla: 

FOR 1-0 TO 3 
GOSUB 20 
NEXT I 

Y la Unea 20 podrla camblarse de la slgulente forma; 

S-STICK(I) 

En algunas apllcaclones, puede que quleras la lectura del Joystick 
solamente para los cuatro puntos cardlnales, es declr, N-S-E-O, e 
Ignorar los movlmlentos dlagonales. SI es asl modlflca las Uneas 30 y 40 

de la rutlna de la slgulente forma: 

30 DXKS-7MS-11) 

40 DYHS-13MS-14) 

QUE TAL SI LO PROBAMOS 

Claro, porqu6 no. Escribe la rutlna y el slgulente programa de 
demostracldn: 

10 GOT0100 

100 s- 0:G0SUB 20 

110 IF NOT (DX OR DY) THEN 100 

120 PRINT ? *DX-*rf)X,*DY-“,PY:60T0 100 

Conecta el joystick en el Slot 1, luego ejecuta el programa. Observa los 



U4 COMPU ATARI 

valores de DX y DV para cada una de las poslciones del joystick. 

IESTO ME GUSTO! <LSEGUIMOS PROBANDO? 

Prueba el pequeno programa de demostraclon que encontrards a 
contlnuacidn. Estudla este programa para que veas como puedes usar la 
rutlna del joystick en tus programas. 

RUT 1NA DE USO DEL JOYSTICK EN ATARI BASIC. 

O REM SAVE “ D : USOJOY" 

10 GRAPHICS 23:X-79:Y-47:COLOR 1:60T0 160 

20 S-STICK(S) 

30 DXKS-5 OR S-6 OR S-7MS-9 OR S« 10 OR S-11) 

40 DY-(S=5 OR S»9 OR S-13MS-6 OR S-10 OR S= 14) 

50 RETURN 

100 S-0:60SUB 20 

110 IF NOT (DX OR DY) THEN 100 

120 X=X+DX:IF X> 159 THEN X=0 

130 IF X<0 THEN X*159 

140 Y*Y+DY:IF Y>95 THEN Y-0 

150 IF Y<0 THEN Y-95 

160 PLOT X,Y 

170 N«255-INT((X/159+Y/95)* 125) 

180 SOUND 0,N,10,8 

190 60T0 100 

NO SE LO QUE LE PASA A Ml JOYSTICK. DE REPENTE FUNCIONA, DE REPENTE 
NO FUNCIONA. NO PUEDE ESTAR MALO EL PROGRAMA PORQUE SI NO, NO ME 
FUNCIONARIA NUNCA. 

Bueno, los joysticks de Atari se producer en masa y a veces pueden fallar. 
Te voy a ensenar un programa que revela rapfdamente cualquier mal 
funclonamlento en el joystick. Deberas ser capaz de poner la pantalla en 
rojo cuando preslonas el boton del joystick. Deberds, ademas poder dlbujar 
nueve puntos azules en la pantalla, correspondlentes a las nueve 
poslciones del joystick. Para llmpiar la pantalla, preslonas cualquier tecla. 
Puedes controlar tambldn cuan sensible es un joystick controldndolo solo 
con un dedo, uno sensible es muy bueno para programas como Star Raiders. 


ME GUST ARIA QUE ME EXPLICARAS BIEN ESTE PROGRAMA 6 POOR I AS 
HACERLO PASO A PASO? 
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Son muy poqultas lineas, asi es que te dire que va haclendo cada una de 
el las: 

La llnea 2 escoge GR.3 y hace desaparecer el cursor (POKE 752) 

Las lineas 5 a la 15 reglstran la posicfdn del joystick. 

La llnea 200 borra la llnea antlgua y dlbuja una nueva llnea. 

La llnea 230 dlbuja el punto central y el exterior. 

La llnea 300 cambla el color de la pantalla a rojo cuando se preslona el 
boton del joystick. 

Las lineas 500 a 520 escrlben el valor de STICK(O) y STRIG(O); los PEEKS 
656 y 657 mantienen la escrltura en solo un lugar. 

La 540 llmpla la pantalla cuando se preslona cualquler tecla. 

La 999 tiene C y D con la ultima poslcion del joystick (C y D se usan para 
minimizar el parpadeo en la pantalla), A y B son las nuevas posiciones del 
joystick y crean un "loop" contlnuo. 


PRUEBA DEL JOYSTICK 

0 REM SAVE “ D : PTRUEBAJ” 

2 6RAPHICS 3:P0KE 752,1:60T0 999 

5 A=24:B=14:G0T0 200 

6 A*24:B=6:G0T0 200 

7 A*25:B=10:GOTO 200 

9 A»16:B=14;60T0 200 

10 A*16:B-6:60T0 200 

11 A«15:B»10:GOTO 200 

13 A»20:B»15:G0T0 200 

14 A=20:B=5:GOTO 200 

15 A-20:B=!0 

200 IF CoA OR DoB THEN COLOR 4:DRAWT0 20,10:C0L0R 2:DRAWT0 A, B 

230 COLOR 3 :PLOT 20,10 :PLOT A, B 

300 POKE 712,66-STRI6(0)*66 

500 POKE 656,1 :P0KE 657,5 

510 ? "STICKWK; STICK (0), 

520 ? "STRIG(0K; STRIG(O) 

540 IF PEEK(764)<>255 THEN POKE 764,255:RUN 

999 C»A:D-B:GOTO STICK(O) 
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muem 



En este pequeno anexo te expllcamos algunas caractertstlcas m£s de los 
computadores personales ATARI. Adem^s examlnaremos muchos de los 
numerosos productos hechos por Atari y otras compamas para Incrementar su 
poder y aplicaclones. 

Como ya lo has escuchado muchas veces, un computador personal es una 
maquina con la cual ejecutar pequehas tareas. 

Puede realizar una amplia vartedad de tareas extremadamente rapido. Esta es 
una de las principals caracterlsticas de los computadores, aunque la mas 
importante es que tiene una memoria para almacenar informacion. 

Una lista de estas tareas es lo que se conoce como programa. Puedes crear tus 
proplos programas o comprarlos. En jerga computactonal, los programas son el 
software y el resto de los equipos computaclonales es el hardware. 


1L- COHPOMEMTES PEL SHS T1EIH1A COMPUTACIOMAL ATARI - 



Revlsemos el hardware Incluldo en un slstema computaclonal Atari tlplco. 

a) UCP: El corazbn del Atari es el mlcroprocesador o UCP ( Unldad Central de 
Proceso), un pequeno chip localIzado en el Interior del equlpo. 

Este mlcroprocesador es el cerebro y centro de control, responsable de todos 
los ccilculos y manejos reallzados por el Atari. Debe cumpllr las 
instrucclones que tu le das y controla todas las dem£s partes de tu equipo. El 
Atari utlllza un mlcroprocesador 6502, utilizado comunmente en gran 
variedad de computadores personales. 

b) Memoria: La segunda parte Importante del computador es la memoria que 
sirve para almacenar programas y datos. El almacenamiento se realiza en 
forma de pulsos etectricos en el Interior de los chips de memoria que estan 
conectados al mlcroprocesador. Como sabes exlsten dos tlpos de memoria, 
RAM (Random Access Memory) y ROM (Read Only Memory). Para entender la 
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diferencia entre ellas, pensemos en la memorla como en un gran pizarrbn de 
colegto. A medlda que la profesora pasa la materia, va escrlblendo en el 
pizarrbn. Puede borrarlo y volver a escrlblr. En forma similar la memorla RAM 
puede llenarse de datos y luego ser borrada para poner cosas nuevas. 

Ahora imaglnate un alumno que ingresa a la sala fuera de la bora y escribe con 
pintura lndeleble en el pizarrbn. Para la profesora sera imposible borrar esto 
y ahora el pizarrbn no sirve para escrlblr en £1, s61o se puede leer lo que 
escrtbib el alumno. As! funciona la memorla ROM. 

Discutamos otro punto que es muy importante en relacibn a la memorla: su 
Umitacfbn en capacldad. Puede recordar solo un numero determinado de cosas 
y exlste formas de medir su capacldad en unidades. La unldad de memoria mbs 
pequeha es el bit, que solo puede recordar si algo esta "ON" o "OFF". Ocho bits 
se combinan para formar 1 byte que es la memorla necesaria para almacenar 
un caracter del alfabeto o un numero. Mil bytes forman un kilobyte o K, y un 
ml lion un megabyte. La cantidad de memoria que tengas en tu computador 
determina el tamaho de los programas que puedes usar en el. Los 
computadores Atari vienen con memoria desde 16 K a 64 K RAM. 

Una diferencia importante entre los modelos 600XL y 800XL es la cantidad de 
memoria RAM que tiene cada uno. El Atari 600XL viene con 16K y si tu quieres 
expandirla, tienes que comprar una expansibn que amplia su capacidad hasta 
64K, El Atari 800XL se vende con 64K. 

c) Teclado: La tercera y ultima parte del computador Atari es el teclado, 
nuestro principal canal de comunicacion con el microprocesador. Si estas 
familiarizado con las mbquinas de escribir, veras sus similitudes. Esto hace 
que sea muy fbcil para los dactilografos digitar. 

Tiene ademas una serie de teclas extra que explicaremos mbs adelante. 

Existe una gran diferencia entre los teclados de los dos modelos Atari que 
hemos nombrado. 

Ahora que ya hemos visto las partes del computador, veamos el resto del 
hardware necesario para completar el sistema. Estos otros elementos son los 
perifbricos. 

d) Monitor: Es probablemente el perifbrico mbs crucial del sistema. Permite 
que el computador se comunique con nosotros, mostrando letras o dibujos en 
la pantalla. El micrbfono del monitor se usa para crear musica y sonidos 
controlados por el Atari. El Atari estb disenado para usar cualquier Televisor 
como monitor y adembs pueden usar monitores especialmente disenados para 
ser usados con computadores, con lo que se obtiene una imagen m£s Clara. 
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e) Cassettera y Diskettera: Otro importante perif6rico es el "disposltlvo 
de almacenamlento de datos". Esto podrla parecer innecesario, ya que tenemos 
toda la memorla RAM para almacenar datos. Sin embargo, esta memoria tiene 
un gran problema: cuando el computador se desconecta, todo lo que esta en 
el la se borra. La solucion es leer el contenido de la RAM y pasarlo a otro 
perif^rico que pueda almacenar datos sin necesidad de estar conectado a la 
electricidad constantemente. 

<LEntonces para que usar la memoria RAM si es volatil?. Bueno, su facilldad 
para borrar y aceptar nuevos datos hace que sea muy f^cil para el 
microprocesador usarla. Es mucho mas rapida que el mejor dispositivo de 
almacenamlento. 

Un tipico sistema Atari usa uno o ambos dispositivos de almacenamlento: 
cassettera y diskettera. La cassettera es mucho mas econdmica que la 
diskettera. Los datos son convertidos desde la RAM a senales eldctricas, que 
se registran en un cassette, de la misma forma que la musica. 

La diskettera almacena datos en un disco pequeho flexible cubierto de 
piastico conocido como "floppy disk” o diskettes. Los diskettes estan hechos 
del mismo material que las cintas de grabacion pero son un poco mds gruesos. 
Los diskettes vienen protegidos con un sobre para que no se danen. 

La diskettera tiene una cabeza lecto-grabadora que se mueve sobre la ranura 
ovalada que tiene el sobre de! diskette. Esta cabeza grabadora puede registrar 
senales electricas en el disco de la misma forma que las cabezas grabadoras 
de las cassetteras lo hacen con los cassettes. 

Las mayores ventajas de las disketteras frente a las cassetteras son su 
velocidad y accesibilidad a los datos. Puede cargar y grabar datos de 10 a 20 
veces mas rdpido que una cassettera. Ademas puede almacenar y recuperar 
datos en cualquier orden. 6Y como nos ayuda esto?. Hagamos una analogia. 
Considera el tiempo que gastas buscando una cancion en un cassette: tienes 
que 1r deteniendote cada cierto tiempo para ver si 1 legaste a la cancion que 
buscabas. Si tienes un disco, en cambio, ves en el indice la ubicacion y colocas 
la aguja directamente sobre el comienzo de la cancion. En forma similar, los 
datos almacenados en un diskette pueden encontrarse casi instantaneamente. 
Cada disco tiene un directorio que informa todos los programas e Informacion 
contenidos en el disco. 

El computador puede revisar ese directorio e ir directamente a los datos 
requeridos. 

Existe una tercera manera de almacenar datos, aunque si no tienes 
equipamiento especial, no puedes hacerlo. 

Este mdtodo es grabar los datos en un chip ROM como una serie de circuitos. 
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Una vez que se ha creado el software se inserta en el chip y queda alli para 
siempre sin sufrir danos. Puedes comprar programas almacenados en ROM, los 
que generalmente vlenen en un cartridge. La ventaja principal del cartridge es 
que carga en forma instantanea simplemente Instalandolo y encendiendo el 
equlpo. Los cartridges ademas son muy durables. 

Hemos visto el hardware incluido en un slstema de computador Atari tlpico: 
el computador propiamente tal, un monitor para ver la informacion y un 
dispositive de almacenamiento (diskettera o cassettera). Aunque cualquier 
slstema Atari funcional necesita a lo menos estos elementos para obtener 
resultados, se le puede agregar muchos otros perifaricos para aumentar su 
poder y versatilidad. 



Un computador sin software no puede hacer nada. El Software viene en varlos 
medios de almacenamiento: diskettes, cassettes y cartridges. Ademas puede 
venir escrito en diferentes lenguajes de programacion. Revisemos los dos mas 
comunmente usados en Atari. 

a) Lenguaje de Maoulna. E l lenguaje de maquina es el lenguaje Interno del 
computador: todos los comandos que recibe el microprocesador deben estar en 
lenguaje de maquina. Es un lenguaje muy rapido y eficiente usado por 
programadores avanzados, pero no es sencillo. Se escribe como una serie de 
numeros, los que son convertidos a impulsos electricos que le indican al 
microprocesador que hacer. 


b) BASIC. Y a que a la mayoria de la gente no le gusta hablar en numeros, 
afortunadamente existe gran variedad de lenguajes de programacion mucho 
m^s faciles de usar, que se conoce como "amistosos”. Uno de los lenguajes 
mas amistosos es el BASIC que utlliza palabras en Ingles para dar 
instrucciones al computador. Para poder usar el BASIC en el Atari, debemos 
tener un programa "intarprete" que traduce las Instrucciones en Ingias a 
lenguaje de maquina. 

BASIC puede venir incluido como un lenguaje con los computadores Atari o 
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como alternatlva en un cartridge que se instala en el slot que esta en frente 
del computador. El Atari 800 XL tlene BASIC en ROM. 

Los computadores Atari se comerclallzan con gran varledad de Software 
adlclonal. Por ahora, revlsaremos el software que por lo general se Incluye en 
un slstema computaclonal simple. 

c) El Slstema Ooeratlvo. Un programa muy Importante que se Incluye en 
todos los Atari es el Sistema Operativo (SO), escrito en lenguaje de maqulna 
que ejecuta todas las funclones fundamentales del computador. Sin Sistema 
Operativo, el computador, aunque lo enciendas, no harla nada. El Sistema 
Operativo le indica que responda al teclado, como mostrar las cosas en la 
pantalla, como recibir los programas de la cassettera o diskettera y miles de 
otras cosas. El Sistema Operativo esta contenido en una ROM que esta bajo la 
cubierta del computador y empieza a funcionar en el instante en que el 
computador se enciende. 

d) El Slstema Ooeratlvo de Disco (D.O.S.). Si compras una diskettera 
Atari, esta incluye un programa que se llama Sistema Operativo de Disco 
(D.O.S.). DOS viene en un diskette y se carga en el computador cuando £ste se 
enciende. DOS le da al Atari la capacidad para intercambiar datos con la 
diskettera, revisar el directorlo del disco y controlar el motor del drive. Sin 
DOS no puedes usar la diskettera Atari. 


2.- POIESTA IE Ml HABCHA PEL EQUIPO 


Conectar y hacer funcionar un computador Atari no es muy dtficil. El 
computador y sus perifertcos ban sido disenados para conectarse unos con 
otros facllmente. La unica herramtenta que podrias necesitar es un 
destornillador. Solo sigue las instrucciones del manual del usuario, cualquiera 
sea el modelo que tengas. 

No necesitas condiciones ambientales especiales, pero es bueno que busques 
un lugar agradable donde quepa tu equipo y per1f£rlcos sin problemas. 

Lo primero que debes hacer es conectar el monitor (o TV) al equipo y luego 
conectarlos a la electricidad, siguiendo las instrucciones del manual. Una vez 
hecho esto enciende el computador (POWER) para ver como funciona. Si no pasa 
nada, verifica las conecciones. Ahora que funciona podemos desconectarlo e 
instalarle el disposltivo de almacenamiento. Nuevamente, sigue las 
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Instrucciones de los manuales, ya sea para cassettera o diskettera. 
Slmplemente enchufa el conector del Joystick o del paddle al jack N e 1; si 
necesltas conectar otro hazlo en segulda. 


5.- ansisi del teclado 


Ya sabemos que el corazdn del Atari es un mlcroprocesador, un pequeno chip 
localIzado dentro del computador. El teclado nos permlte comunlcarnos con el 
mlcroprocesador. Cada vez que preslonas una tecla, aparece un caracter en la 
pantalla y ademas es enviada al mlcroprocesador. Hay una parte especial en el 
Slstema Operatlvo, el "editor de pantalla", que maneja lo que se escribe en la 
pantalla. Para poder "conversar" con nuestro computador, necesltamos saber 
las reglas por las cuales se rlge el editor de pantalla. 

A continuacidn veremos como funciona cada una de las teclas y como el editor 
de pantalla tlene culdado al desplegar nuestros mensajes en la pantalla. 
Notaras varlas cosas Interesantes. Por ejemplo: si mantienes presionada una 
tecla se repetlra el caracter o functon que representa en la pantalla. SI dejas 
el teclado por mas de 8 mlnutos, notaras que la pantalla cambfara de color, 
este es un metodo de proteccion de la pantalla que termina apenas presionas 
una tecla. 

Algo muy importante es el pequeno cuadrado bianco que se mueve en la 
pantalla que se conoce como "cursor". Aparece para indlcarte donde estas 
escribiendo. Salta automaticamente de una Hnea a otra sin necesidad de 
preslonar RETURN, en Ingles el tarmino que describe esta caracteristlca es 
Wraparound. 

Puedes moverte a cualquler poslcidn de la pantalla sin necesidad de escribir. 
En el borde izqulerdo del teclado hay una tecla marcada CTRL. Preslona esta 
tecla simultaneamente con una de las teclas de la derecha marcadas con 
pequehas flechas en cuadrados blancos. Es Interesante ver que si pasas sobre 
caracteres que ya escribiste en la pantalla no los borra, simplemente los deja 
en modo "inverso" cuando esta sobre el los y sigue de largo. En cambio si 
escribes un caracter, ellminas el anterior. 

Una vez que haz llegado al final de la pantalla el editor automaticamente sube 
todas las filas un lugar mas arrlba y deja una llnea en bianco en la parte 
inferior, esto se llama "scrolling". Si quleres borrar todo lo que aparece en la 
pantalla, preslona CLEAR. 

Divldiremos las teclas en 4 tipos dlferentes para entenderlas mejor. 
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a) Teclas de Caracteres —> cuando son presionadas producen caracteres 
en la pantalla. 

b) Teclas de Edfcldn --> no producen caracteres pero mueven el cursor, 
llmplan la pantalla, desplazan caracteres dentro de la pantalla y otras 
fund ones. 

c) Teclas de Programacldn — > es un pequeno grupo de teclas que se usa 
para ejecutar tareas especiales cuando se programa. 

d) Teclas de Control de Programa —> estas teclas se usan para controlar 
un programa cuando se esta ejecutando. 

a) Teclas de Caracteres : Son las m^s simples: letras, numeros, puntuaciones y 
simbolos matematicos que aparecen en las teclas centrales. Cuando las 
presionas aparece el caracter en la pantalla, La barra espaciadora en la parte 
inferior del teclado tambien es una tecla de caracteres, produce espacios. 
Algunas teclas son de caracteres multiples, tienen varios simbolos que se 
usan con las teclas SHIFT y CTRL. 

b) Teclas de Edicibn: Generalmente se ubican a la derecha y a la izquierda del 
teclado. Revisemoslas una a una. 

Tecla SHIFT — > permite obtener un segundo caracter de la mayoria de las 
teclas. Hay dos teclas SHIFT, una a cada lado del teclado. 

Por lo general, entrega la mayuscula de la letra o el simbolo que aparece en la 
parte superior de la tecla. 

CAPS— > Habras notado que todas las letras que aparecen en la pantalla son 
mayusculas, La tecla CAPS te da la posibi 1 idad de escribir con minusculas. 
Solo afecta a las teclas con letras. Para poner un por ejemplo, de todas 
maneras hay que apretar SHIFT y un 3. Para volver a mayuscula se presiona 
SHIFT y CAPS juntos (solo se presiona por segunda vez CAPS). 

CTRL —> CTRL es como un segundo SHIFT que te permite usar caracteres 
graficos (puedes mirar tu manual para ver la localizacion de cada figura en el 
teclado). Ademas en las teclas que tienen 3 simbolos nos entrega esa tercera 
funcion (como las flechas). 

Puede ser bloqueada prestonando juntas CTRL y CAPS. Para volver al modo 
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mayusculas se presiona SHIFT y CAPS. 

El uso de la tecla CTRL con los numeros da resultados blen Interesantes. 
Presiona CTRL y el numero uno juntos y trata de escrlblr en el teclado; lesta 
bloqueado!, no puedes escriblr nada. Vuelves al estado normal con CTRL 1. 

CTRL 2 hace sonar una alarma y CTRL 3 crea una serial EOF (fin de archlvo). 
Con el resto de los numeros no pasa nada. 

TECLA DE VIDEO INVERSO esta locallzada a la derecha del teclado, 
preslonaria una vez aparecen todos los caracteres en Inverso. Al preslonarla 
por segunda vez, los caracteres que se dlglten aparecen en forma normal. 

RETURN —> En una maqulna de escrlblr, la tecla RETURN slrve generalmente 
como avance de carro, termlnando la linea que estas escrlblendo y pasando al 
inlclo de la sigulente, una linea mas abajo. La tecla RETURN del Atari hace 
esto mlsmo en la pantalla, pero no es exactamente como la tecla RETURN de la 
maqulna de escrlblr. Plensa en la tecla RETURN como un mensaje al 
computador que le dice "ya escrlbl, ahora te devuelvo el control para que 
puedas leer ml mensaje". 

TAB/SET/CLEAR — > esta tecla es realmente tres teclas en una Al 
presionarla sola actua como tabulador. Con SHIFT se hablllta la funclon SET 
que sirve para deflnlr los distintos puntos de tabulacion. Con CTRL te permite 
ellmlnar un punto de tabulaclon. 

TECLAS DE MOVIMIENTO DEL CURSOR (->, I, <- y I) ~> estas teclas 
normalmente son teclas de caracteres, cuando las usas solas o con SHIFT. Con 
CTRL mueve el cursor en la dlreccion de la flecha. Son muy utiles. 

DELETE/ BACK S —> esta es una tecla con tres funclones que te permite 
borrar caracteres de la pantalla. Al preslonarla sola mueve el cursor un 
espacio hacla atras (Izqulerda), borrando todo lo que encuentre. Esta es la 
funclon BACK S. 

La funcidn DELETE puede usarse con SHIFT y con CTRL. SHIFT DELETE hace que 
desaparezca completa la linea en la cual esta el cursor. CTRL DELETE hace que 
el caracter que esta bajo el cursor desaparezca. 

INSERT —> es parte de una tecla de caracteres. La tecla INSERT solo 
funclona con CTRL o SHIFT. Piensa en INSERT como en el antdnimo de DELETE. 
SHIFT INSERT hace que aparezca una linea en bianco donde esta el cursor y 
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todas las dem^s se mueven hacla abajo. CTRL INSERT agrega un espaclo 
corrlendo los caracteres bajo el cursor a la derecha. 

CLEAR —> tambten es parte de una tecla de funciones. Da lo mlsmo usarla 
con CTRL o SHIFT y hace que se borre todo lo que hay en la pantalla y el cursor 
vuelva a la esqulna superior izqulerda. 

c) Teclas de Programacibn. 

Las teclas programables se usan cuando se esta escribiendo o ejecutando un 
programa. 

ESC — esta tecla, abreviatura de ESCAPE, le indlca al Atari que ignore la 
siguiente tecla de edicibn que se presione e imprima un simbolo especial que 
represente esa fund on. Pres Iona ESC una vez y luego DELETE / BACK S. Verbs 
una flecha en la pantalla pero no se ejecuta la funcion. Lo mismo pasa con 
CLEAR, INSERT y el mismo ESC. No funciona con RETURN, SHIFT, CTRL, CAPS, 
BREAK y la tecla Atari. 


BREAK —> la tecla BREAK se usa para indicarle al computador que termine lo 
que estd haciendo. Puedes usarla cuando el computador estb ejecutando algun 
programa largo que quieres detener, ya sea para cambiar algo en el programa o 
para cargar un nuevo programa. 

d) Teclas de Control de Programa. 

Hay cinco teclas "especiales", de control de programa o de "consola”: 

- HELP 

- START 

- SELECT 

- OPTION 

- RESET 

Las teclas START, SELECT y OPTION no nos serein utiles por ahora, porque sus 
funciones dependen de un programa ejecutbndose. START puede usarse para 
comenzar un juego o para hacer que el programa calcule algo. SELECT puede 
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eleglr entre varlas versiones del programa. Es Importante recordar que estas 
teclas no tlenen funclones establecidas y a menudo no se usan en algunos 
programas que se ejecutan. RESET es una tecla de emergencla. La gran 
dlferencia entre presionar esta tecla y apagar y encender el equipo es que 
RESET no borra un programa en la memorla del computador. 

4.- EL EDITOR 1£ PAMTA1LILA. 

Seguramente habrds notado que a veces el editor de pantalla hace cosas 
Inesperadas. Por ejemplo, a veces suena una "alarma" cuando escribes. SI usas 
SHIFT DELETE para borrar una llnea borra varias llneas. 6Qu£ esta pasando?. 
Cuando mlramos la pantalla vemos caracteres en dlstlntas llneas y columnas. 
El editor ve las cosas dlferentes. Lo que vemos como una llnea puede ser 
slmplemente parte de una llnea m^s larga. Para dlferenclar entre nuestra 
llnea y la llnea del editor de pantalla, necesitamos nombrar dos tlpos 
dlferentes de llneas. Estas son la llnea flslca y la llnea Idgica (lo que el 
editor ve). 


Cuando queremos envlar un mensaje al mlcroprocesador lo escrlbimos y luego 
preslonamos RETURN que marca el fin de un mensaje y el Inlclo del otro. Como 
es solo un pequeno mlcroprocesador no puede reclblr mensajes muy largos. El 
editor de pantalla llmlta los mensajes a tres llneas flslcas. Este mensaje 
serla una llnea ldglca. 

Entonces cuando el computador hace sonar su alarma es porque te encuentras 
8 caracteres antes del final de una llnea 16glca. Al presionar SHIFT DELETE 
borrar una llnea ldgica, no flslca. 



Como todos los programas que te entregamos en este Ubro estan escritos en 
BASIC, es Interesante hacer algunas acotaclones al respecto. 

Existen varlas versiones de BASIC de disco disponibles para Atari: entre ellas 
una de Microsoft, que tambten se usa en muchos otros computadores. Ademas 
del BASIC Atari, incluldo en ROM en el computador. 

Como sabes hay dos formas de utilizar BASIC: 

- Modo Inmedlato -> tipeas la instruccldn y la ingresas preslonando RETURN. 
El computador ejecuta el comando inmediatamente. 
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- Modo dfferldo -> podemos lngresar una larga llsta de Instrucclones en el 
orden que deseemos. Prlmero se escribe un numero posltlvo entre 0 y 32767, 
un espaclo y tu Instruccidn. A1 final un RETURN. El computador almacena estas 
Instrucclones y las ejecuta solo cuando se lo Indlcas con la Instruccidn RUN. 
Cuando el computador ejecuta un programa, verlflca los numeros al comlenzo 
de cada llnea en el programa y los va ejecutando en orden numerlco, del 
numero de llnea mas pequeno al mayor. Los numeros no tlenen que ser 
consecutlvos. 

Hay algunas Instrucclones que alteran el orden en el cual el computador 
ejecuta el programa. GOTO, por ejemplo es una Instruccidn que va segulda de 
un numero de llnea. Cuando el computador ejecuta esa Instruccidn, salta al 
numero de llnea menclonado y comlenza a ejecutar las Instrucclones desde 
alii. 

SI tlenes una cassettera y quleres grabar tus programas en cassette, esto es 
lo que tlenes que hacer. 


1. - Pon un cassette reboblnado (al prlnclpio) en la cassettera. 

2. - Ingresa el comando CSAVE que slgnlffca CASSETTE SAVE. Escuchards dos 
zumbldos del computador. Es la serial para preslonar dos botones en la 
cassettera. 

3. - Preslona slmultdneamente los botones de PLAY y RECORD y deberdn 
quedar bloqueados. 

4- Preslona RETURN en el computador. Escuchards un ruldo provenlente del 
monitor y el cassette comenzard a moverse. Despues de unos pocos segundos, 
olras algunos sonldos desagradables, ino te asustes! es el sonldo de tu 
programa que se esta transflriendo al cassette. Cuando termlna, se acaba el 
ruldo y aparece la palabra READY en la pantalla. 

5.- Preslona el botdn STOP de la cassettera y reboblna el cassette. 

Tu programa ya ha quedado grabado. 

SI vas a almacenar tu programa en una diskettera, necesltas ponerle un 
nombre al programa. DOS te lo plde para poder llamarlo despuds. DOS es muy 
especial con respecto a los nombres, deben cumpllr estas reglas: 

- Mdxlmo 8 caracteres. 

- Solo letras de la A - Z y numeros del 0-9. 

- El nombre debe comenzar con una letra. 

- No acepta mlnusculas, caracteres Inversos, nl espaclos. 

SI necesltas mas de 8 caracteres puedes agregar 3 mds si pones un punto 
antes. Esto constltuye la extension. 
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Se utiliza el comando SAVE para grabar seguldo de 'D:' para indlcar que sera 
en disco y luego el nombre del programa. Esta Informacidn debe 1r entre 
commas, por ejemplo, SAVE "D : TEXTO". Despu6s de ingresar este comando la 
diskettera comlenza a funcionar y el parlante del monitor emite una serle de 
ruidos, A1 final aparece READY que te Indica que tu programa fue grabado. 

SI quieres recuperar un programa que haz grabado en un cassette, slgue estas 
instrucclones: 

1- Pon el cassette, 

2. - Escribe CLOAD (CASSETTE LOAD) y escucharas un zumbido del computador. 
Esto te indica que presiones una tecla en la cassettera. 

3. - Preslona el botdn PLAY. 

A - Presiona RETURN, Se traspasa el programa del cassette a la memoria del 
computador. A! final aparece READY. 

5.- Preslona STOP en la grabadora. 

6 - Reboblna el cassette para la proxlma vez que lo uses. 

Cargar un programa desde un diskette es muy send 1 lo: 

1. - Inserts el diskette. 

2. - Escribe LOAD ”D: seguldo por el nombre. 

Cuando finaliza aparece la palabra READY. Escribe RUN para ver si el programa 
funciona. 

Si estas usando una diskettera para cargar el programa, puedes acortar el 
proceso escrlbiendo: RUN "D : TEXTO” y con esto comblnas el comando LOAD y 
RUN. 


IS.- ALMlACEMAMflEMTO DIE ARCHIWOS: CASSETTES V 0 H3KETTIE3. 

A medida que comlences a trabajar con tu computador, comenzaras a acumular 
programas y datos, llamados por lo general "archivos". 

Cuando grabas Informacldn en un cassette, es conveniente grabar solo un 
archivo por lado y asi no tlenes problemas para encontrar el inicio de tu 
archlvo. De otra forma deberas usar el Contador de la cassettera. 

La primera vez que usas un cassette asegurate que este al principio y el 
contador en 0. Despues que hayas grabado un archivo deja por lo menos 10 
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espaclos llbres y escribe el numero del contador. Estas en condiclones de 
grabar tu segundo archlvo. A1 cargar un archlvo slempre deja el cassette al 
principle y avanza hasta la posicidn donde esta el archlvo deseado y slgue el 
procedlmlento normal. No es raro que desaparezea algun archlvo por arte de 
magia, sobre todo si el cassette esta casl completo. 

Otro punto Importante es que los contadores varlan de cassettera en 
cassettera por lo que puedes tener problemas al buscar un archlvo que fu£ 
grabado en otro equlpo. 

Como puedes ver, los cassettes no son slempre el medio de almacenamlento 
mas confiable. Es importante respaldar, hacer copias de los archivos 
importantes. Ademas, cuando tengas archivos importantes que no quieres que 
se te borren jamas, hay una forma de proteger el cassette, quebrando una de 
las pequenas patitas que tiene atras (la del lado derecho). Para proteger el 
otro lado, qulebras la del otro lado. 

Notaras que es imposlble grabar en este cassette. 

Como regia, el almacenamiento de archivos en diskettes es mucho mas 
conveniente y eficiente que el almacenamiento en cassette. 

Los diskettes estandar que usa Atari son de 5 1/4” de densidad simple, un lado 
y sectorizados por software. 

Es necesario formatear los diskettes antes de usarlos, por esta caracteristica 
de ser sectorizados por software. Esto se puede hacer a traves del menu del 
DOS. 

Obtendras el Menu del DOS cada vez que enciendas el equlpo sin cartridge (por 
supuesto, con el diskette de DOS en la diskettera). Si estas en BASIC 
simplemente escribe DOS. Notaras que aparecen varias opciones despues de 
las letras A a la 0. Cada una de estas opciones ejecuta algun tipo de tarea que 
te permite copiar archivos, moverlos de disco a disco, renombrarlos, 
borrarlos, etc. Aprender a usar todas estas opciones toma su tiempo, no las 
revisaremos todas. 

- Opci6n de Formateo: Para formatear diskettes nuevos debes insertarlos 
en la diskettera y selecclonar la Opcidn I del menu DOS. Cuando el computador 
te pregunte que drive formatear, pon I, a menos que tengas mas de una 
diskettera. Luego Atari te pide la confirmaciPn y escucharas el sonido de la 
diskettera. Una cosa muy Importante que hay que saber del formateo es que 
BORRA TODO LO QUE HAYA EN EL DISKETTE. La opcidn de formateo puede ser 
muy util como borrador de diskettes, pero usala con cuidado. 
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- Opci6n de Dlrectorlo del Diskette: Alguri dia puede que no sepas que 
contiene un diskette. Ponlo en la dlskettera y utlllza la opclbn A, el dlrectorlo 
del disco. Escribe A segulda de dos RETURN. En la pantalla aparecerb una llsta 
de todos los archlvos del diskette. 

Cada archlvo va seguldo de un numero que nos Indlca cuantos sectores ocupa 
para almacenarlo. Un sector es un area del diskette que almacena 128 bytes de 
Informacibn. 

A1 final de la llsta aparece una llnea que te Indlca la cantldad de sectores 
dlsponlbles. 

- Opclbn de Escrtblr los Archlvos del DOS: Puede ser muy aburrldo tener 
que estar camblando diskettes cada vez que quleres cargar el DOS. Es mbs 
fbcll tener el DOS. Es mbs fbcll tener el DOS en el disco que estas usando, la 
opclbn H te permlte hacer esto. Una vez que tengas el diskette en el drive, 
escribe H y el computador te preguntarb en que drive estb el diskette, luego te 
plde la conflrmaclon y el DOS sera coplado a tu diskette. 

- Opc!6n de Cargar un Cartridge: La ultima opclbn del DOS que veremos es 
la B, Run Cartridge. SI quleres volver al BASIC o cualquler otro lenguaje en un 
cartridge, escribe B. El menu del DOS desaparece y estas de vuelta en el BASIC 
en el Cartridge. 

Como velamos reclbn, cada vez que formateas un diskette se borra todo su 
contenldo por lo que es poslble que por equlvocaclbn, borres archlvos 
Importantes. Por esto podemos proteger los diskettes para que no se pueda 
escrlblr enclma. 

SI te fljas, al lado derecho del diskette hay una ranura por la cual pasa un 
rayo de luz cuando el diskette estb en la dlskettera y quleres escrlblr en bl. SI 
este rayo de luz no pasa, no puedes formatear nl escrlblr en ese diskette. Para 
protegerlo debes ponerle una de las etlquetas plateadas o doradas que vlenen 
en las cajas de diskettes. SI no las tlenes, puedes usar un pedazo de clnta 
adheslva negra o de algun color que no deje pasar la luz. 

SI quleres escrlblr de nuevo en el diskette, slmplemente retlra las 
protecclones. 

Cuando se fabrlcan los diskettes, se revlsa cada lado para ver si permlte una 
correcta grabaclbn. SI un lado no cumple las normas de conflabllldad, ese 
diskette serb un diskette de un lado. En la mayorla de los casos, el lado no 
certlf Icado se puede utlllzar en el Atari. La Cinlca razbn por la cual no se usa 
es que no tlene la ranura para poder escrlblr en bl. 
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Si le haces una ranura al lado opuesto de la ranura original, podres escribir en 
el reverso del diskette. Asegurate de que la ranura quede a la misma altura de 
la otra para que puedas grabar. Debes tener en cuenta que al hacer esto 
pierdes la garantia del diskette y no siempre funciona. 

Sabres si el lado opuesto funciona si es que puedes formatearlo. 

7.- FEBOFEBlICea 

Extste gran cantidad de perif£r1cos que agregarle a tu Atari, asi que antes de 
ponerte a gastar plata en hardware para tu equlpo, revisa bien tus 
necesldades. Respondiendo satisfactoriamente a las 4 preguntas slguientes te 
puede ayudar a evitar la compra de un periferico que solo slrva para acumular 
polvo. 

£E1 periferico hace lo que quieres que haga? 

La impresora COLLOSO 8000 escribe 8000 caracteres por segundo, pero s61o si 
el texto es en Japones; seguramente no la necesltas. Tlenes que ser muy 
especifico acerca de lo que quieres que haga un periferico antes de comprarlo. 
<LEs compatible el periferico con tu equipo? 

Asegurate primero de todo lo que puede conectarse al Atari. Asegurate 
tambien que tengas la memoria necesaria para soportar el periferico. Algunos 
perifericos necesltan cables de conexidn y equlpamlento especial antes de 
instalarlos. Asegurate de que esten disponibles. 

<i-Puedes comprar o escribir software para utilizar el periferico?. A menos que 
tu Atari tenga un programa que te indique como dar ordenes a este extrano 
aparato, no hare nada. Algunos proveedores venden el software con sus 
perifericos, otros te permiten escribir tus propios programas o encontrarlos 
en el mercado. 

^Existe algun Manual claro o algun experto que te asegure que sabres como 
usar el periferico?. Nunca olvides que la mayoria de los equipos 
computacionales son complicados y necesltan instrucciones Claras para ser 
operados apropiadamente. Si tienes un amigo experto o el vendedor lo es, 
fantestico. Si no, asegurate que entiendes el Manual. 

Ahora echemos un vistazo a los productos mes populares. Como la industria de 
los microcomputadores este cambiando constantemente, tienes que estar 
alerta a los nuevos productos que aparecen en el mercado y los que se 
discontinuan. 

a) Impresoras -> te permiten obtener una "copia dura” en papel, que no se 
borra cuando apagas el equlpo. 
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Uno de los primeros aspectos a conslderar es la calldad de la impresidn. La 
mayoria de las Impresoras son de matrlz de puntos: forman los caracteres con 
un pequefio cabezal con puntas que barren el papel cada vez que Imprtme una 
linea. Las puntas chocan con una clnta entlntada en una combinacidn corrects 
para crear cualquiera que sea el caracter deseado. Mientras mas puntas 
tengan, mas complejos y bien formados serdn los caracteres que Imprlme. 

Un tipo mas econdmico de Impresoras de matriz de punto se llaman 
impresoras tdrmicas, que usan un papel especial e imprimen usando puntas 
calientes que "queman" los caracteres en el papel quimico. Su mayor 
desventaja es que deben usar papel especial y la calldad de la impresidn no 
siempre es buena. 

La mejor calldad se obtlene con las impresoras de "margarita” que escriben 
letras igual que una maquina de escribir. Tienen una pequena rueda que gira (la 
margarita) con muchas "patitas" flexibles. 

Otros aspectos a considerar son: 

- Si es bidireccional (capaz de imprimir de ida y vuelta, lo que la hace mucho 
mas rdpida). 

- Si permite imprimir 80 columnas (carro angosto) u 132 columnas (carro 
ancho). 

- Si tiene alimentacion por friccidn (para hojas sueltas), alfmentacidn por 
tractor (para papel computacional, con "hoyitos") o ambos. 

- El tamano del buffer, El Atari envia el texto a la impresora muy rdpido y 
esta lo usa lentamente, lo que hace que el computador tenga que esperar, Un 
buffer es memoria en la Impresora que almacena el texto del computador y se 
lo va entregando a la impresora. 

- La capacidad grdfica, etc. 

b) Modems -> un modem es un periferico que te permite enviar datos de tu 
computador via teldfono y recibir datos de otros computadores. 

Sus caracteristicas mas importantes son la velocldad (medida en bps, bits por 
segundo), la frecuencia de la senal (en baudios), el tipo de transmisidn (full 
duplex o que permite recibir y enviar informacidn a la vez o half duplex, que 
permite una cosa a la vez). 

Otros perifericos importantes son: 

- Controladores para juegos. 

- Idpfces luminosos. 

- plotters, etc. 
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Acerquese a su Certro Atari: 


Los Centros <\tari fueron creados 
para dar respuestas a cualquier 
inquietud que listed te tga ccn 
respecto al uso y utilidad que brinda 
su computador. 

Para esto, cada Centro Atari 
cuenta con un equipo humano 
especializado.que ie hara 
demostraciones para que usted y sus 
hijos conozcan lo facil que es operar 
su computador Atari. Elios le 
bnndaran apoyo, asesoria y 
asi>tencia tecnica permanente 
Edemas, le entregaran information 
actualizada de todas las novedades 
ce la computacion Atari. 

Los Centros Atari cuentan con 
una amplia biblioteca especializada, 
a la que usted y sus hijos tienen libre 


acceso. En ellos encontrara un 
extenso material de lectura para 
complementar sus conoc/mientos 

Algo importante. TODOS ESTOS 
SERVHOS SON TOTALMENTE 
GRATI. 

CUItSCS DE 
PEfiFECCIONAMIEN TO 

Normalmente, los Centros Atan 
dictan cursos de programacion. y 
ofrecen diversos seminarios, con ei 
fin de que las familias que ya c jentar 
con un computador Atari, 
aprovechen al maximo las 
posibilidades que este ofrece y se 
integren al fasemante mundo de la 
computacion 
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ARICA 
IQUIQJE 
ANTOFAGASTA 
LA SERENA 
VINA DEL MAR 
VALPARAISO 
SAN ANTONIO 
— SANTIAGO 

CURICO 


Santa Maria 2119 
Baquedano 898 
Baquedano 477 
Cord ovez 499 
San Martin 545 
Blanco 1131 
Barros Luco 1413 
Augusto Leguia Sur 75 
Andres de Fuenzalida 79 
Pena 800 


TALCA 
CHILLAN 
CONCEPCION 
LOS ANGELES 
TEMUCO 
VALDIVIA 
OSORNO 
PUERTO MONTf 
PUNTA ARENAS 



1 Sur 1639 Edificio Lircay L. 7 
Edificio Salman L. 14 
Rengo 281 
Colon 523 
Montt 730 
Independencia 555 
Eleuterio Ramirez 870 
Urmeneta 529 
Rocca 886 L. 23 
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